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9. 



PROGRAM DESCRIPTION 



U ABSTRACT 

THIS PROGRAM CONTAINS A SERIES OF BASIC LOGIC TESTS 
THAT CHECK THE Till FOR PROPER OPERATIOM,, 

2, REQUIREMENTS 

2sl EQUIPMENT 

PDP^Ii COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER 
WITH COWSOLE TELETYPE^ kW h TAll CASSETTE 

2*2 STORAGE 

THIS PROGRAM REQUIRES APPROX* 4K STORAGE^ 
2^3 PRELIMINARY PROGRAMS 

MONE 

3« LOADING PROCEDURE 

\ 

USE STANDARD PROCEDURE FOR LOADING ^ABS TAPES 
OR A CASSETTE TAPE^ 

4, STARTING PROCEDURE 

%A CONTROL SWITCH SETTINGS 

SEE 5.1. 

4,2 STARTING ADDRESSES 

200 NORMAL STARTING ADDRESS 

204 SELECT DRIVECS) BEFORE STARTING TEST 

210 SELECT DRIVECS) AND ADDRESSES BEFORE STARTII^G TEST 

214 SETUP FOR MANUAL LOOPING 

220 WRITE FILE GAP FROM BOT TO EOT 

224 WRITE CONTINOUS BLOCKS OF DATA 

230 READ COMTINOUS BLOCKS OF DATA 

234 WRITE FILE GAP AED A BLOCK OF DATA 

240 READ BLOCK OF DATA AND INTO A FILE GAP 

244 SPACE FWD FILE GAP FROM BOT TO EOT 

250 BACK SPACE FILE GAPS 

500 LOAD SWITCH REGISTER INTO THE TACS 

600 WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 

700 READ FROM BOT TO EOT 



4,3 



PROGRAM & OPERATOR ACTION 



U LOAD PROGRAM INTO MEMORY (SEE SECTION 3«) 

2. LOAD A WRITE EWABLED CASSETTE IN BOTH DRIVES 

3® REWIND BOTH DRIVES 

4^ LOAD ADDRESS 200^ 

5^ SET SWITCHES (SEE SECTION 5^) 

6« PRESS START« 

7, THE PROGRAM WILL LOOP ^ TT¥ BELL WILL RING ONCE EVERY 
PASS# IF SW<10>ffi0« 

NOTES IF USING THE SOFTWARE SWITCH REGISTER 

PROGRAM WILL TYPE «SWR^XXXXXX NEW^** AFTER TYPING 
THE NAME OF THE PROGRAM^ 

4^3«1 DRIVE SELECTION 

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECTION OF DRIVES ^A** AWD ^B»^ TO BE TESTED^ 
NOTE? IF LOAD MEDIUM IS CASSETTE WITH STANDARD VECTOR 
PROGRAM WILL RESPOND AS IF STARTED AT 210« 

STARTING THE PROGRAM AT 204i^ 210|. OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED^ 

THE PROGRAM WILL TYPE ^DRIVE(S)?^, 

EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING ^A^ AND/OR 
^B'' FOLLOWED BY A CARRIAGE RETURN^ 

4^3a«l DRIVE SELECTION EXAMPLES 

DRIVE(S)? h^B 

DRIVE(S)? AB 

DRIVE(S)| B.A 

DRIVE(S)? B 

4^3^2 ADDRESS SELECTION 

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE ^CONTROL AND STATUS^ AND ^DATA BUFFER** 
REGISTER ADDRESSES, THE VECTOR ADDRESS AND THE 
PRIORITY LEVEL, 

THE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER 
4.3a « AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK 
FORI 

1^ BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS) 
2. VECTOR ADDRESS 

3« PRIORITY LEVEL 

AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER 
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS IS) ^ 
WHEN ALL PARAMETERS HAVE BEEN DEFINED THE PROGRAM 
WILL TYPE THEM BACK OUT AND ASK IF THEY ARE OK AT 
WHICH TIME THE OPERATOR RESPONSES WITH A ^Y" OR A 
♦•CARRIAGE RETURN" FOR "YES** ANYTHING ELSE IS A "NO" « 



4«3.2,i ADDRESS SELECTION EXAMPLES 



DRIVESCS) A 

TACS? 177500 
VECTOR? 260 
PRIORITY? 6 

TACS^177500 TADBssl77502 VECTORs000260 PRIORITYs000300 
OK? 

DRIVESCS) k,B 
TACS? 470 
VECTOR? 
PRIORITY? 

TACSS177470 TADBxl77472 VECTORs000260 PRIORITYs000300 
^ OKI 

5. OPERATING PROCEDURE 

5,i OPERATIONAL SWITCH SETTINGS 

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER^ 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES C177777) THEN THE SOFTWARE SWITCH 
REGISTER CLOC. 176) IS USED, 



CONTROL! 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC, 176) FROM THE TTY« THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWINGi 

1) TYPE CONTROL G <""G>| THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
hOC^ 176 AT SELECTED POINTS WITHIN THE PROGRAM, 

2) THE MACHINE WILL THEN TYPEl SWR^sXXXXXXNEWs (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER^) 

3) AFTER THE ^^NEWs^^ HAS SEEM TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTYl 

A) TYPE A NUMBER TO BE LOADED INTO LOC, 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED, 

B) IF A CONTROL U <'"U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2^ 



WITH SW<15|08>^0 THE PROGRAM WILL PRINT OUT On 
ERRORS AND COWTINUE IN TEST. BELL WILL RIMG 
AT COMPLETION OF A PASS^ 
THE SI^ITCH SETTINGS AREl 

S^<15>^1 ^^^HALT ON ERROR 
SW<14>sU^^L00P on TEST 
SM<I3>^1,.. INHIBIT ERROR TYPEOUTS 
SW<il>^U, ^INHIBIT ITERATIOMS 
SW<10>^1 « , «RING BELL ON ERROR 
SW<10>Ji!0^,^RING BELL ON PASS COMPLETE 
SW<09>sjU^^LOOP on error 

SW<08>-U.«LOOP ON TEST AS PER SW<07|00> 
SW<07>^l^t«LOCK ON CURRENT DRIVE (ONLY VALID 

FOR STARTING ADDRESSES 220 THRU 250) « 



5,2 SUBROUTINE ABSTRACTS 

5,2 a SCOPE 

THIS SUBROUTINE CALL (VIA AN lOT INSTRUCTION) IS PLACED BET^^EEN 
EACH TEST IN THE INSTRUCTION SECTION, IT RECORDS THE STARTING 
ADDRESS or EACH TEST IN LOCATION »«$LPADR« AND «$LPERR*^ AS IT IS 
BEING ENTERED « 

THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 

5,2,2 TRAPCATCHER 

A ^,4-2^ - '^HALT*' SEQUENCE IS REPEATED FROM LOG ^ TO LOC « 776 
TO CATCH ANY UNEXPECTED TRAPS. THUS# ANY UNEXPECTED TRAPS ^Ihh 
HALT AT THE DEVICE TRAP VECTOR t2« 

5,2^3 ERROR 

THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 
ALL ERRORS^ (REFER TO 6 ) 

THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
IF PROCESSOR HALTS (BIT ISsl)^ OPERATOR 
CAN RESET S/)H SWITCH REGISTER BY HITTING A 
^CONTROL G^ <^G> BEFORE HITTING CONTINUE^ 



TRAP 

h NUMBER OF SUBROUTINES ARE CALLED BY THE TRi^P INSTRUCTION^ 
FOLLOWING IS THE CIILLS USED AMD THE LABEL OF THE STARTING 
ADDRESS OF THE SUBROUTINES^ 

5.2.4.1 TYPE C$T¥PE) 

ROUTIWE TO T¥PE AN ASCIE STRING ON THE TT¥ 

THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS 
AFTER A LINE FEED. 

5.2.4.2 RDCHR C$RDCHR5 

READ A SINGLE ASCII CHARACTER FROM THE TTY 
5.2.4^3 RDLIN CSRDLIi) 

READ AM ASCII STRING FROM THE fT¥ 
5,2.4^4 WAITREADI (WAIT. ON, READY) 

WAIT ON THE ^TAH READ¥« BIT TO SET 
5,2,4^S WIITXFER C WAIT, FOR, XFER.REQ) 

WAIT ON THE ««TA1| TRANSFER REQUEST^ BIT TO SET 
5.2,4.6 STIPOC 

CHANGE A BINARY NUMBER TO OCTAL ASCII AND TYPE IT« 



5,2.5 



THE FOLLOWING SUBROUTINES APE CALLED BY A JSR 



5^2^5«i $T¥PEC 

ROUTINE TO TYPE k SINGLE ASCII CHARACTER 
5^2^5^2 TYPERR 

THIS ROUTIWE y^lhh TYPE THE ERROR MESSAGES 

5«,2«5*3 SELDRV 

THIS ROUTINE IS USED TO ASK THE OPERATOR WHAT DRIVE(S) 
ARE TO BE TESTED 

592.5.4 SELADR 

THIS ROUTINE WILL ASK THE OPERATOR FOR THE ADDRESSES OF 
THE ^TACS^^^TADB^ AND VECTOR AND THE PRIORITY TO USE, 



5,2^6 THE FOLLOW ROUTINES ARE USED TO MAKE ADJUSTMENTS TO 

THE TU60. BEFORE USING ANY OF THEM LOAD AND START 2i4, 

5.2*6a WFGSUB 

WRITE FILE GAPS FROM ^BOT** TO ^EOT^ 
START AT 220 

THIS ROUTINE CAN BE USED TO ADJUST THE ^WRITE GAP MONO" AND 
THE ^WRITE DELAY MONO*', 

5.2«6^2 WRTSUB 

WRITE CONTINUOUS BLOCKS OF DATA 
START AT 224 

THE PROGRAM ^ILL HALT THREEC33 TIMES 
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 
HALT 1 ~ SWR<7l0> s; NUMBER OF BYTES PER BLOCK 
HALT 2 -"SWR<7|0> ^ PATTERN DESIRED 
HALT 3 — SI^R<i5l0> ^ OPERATIONAL SWITCH SETTINGS 
THIS ROUTINE CAN BE USED TO ADJUST THE ^'GAP TIME MONO^ 
IF USING SOFTWARE SWITCH REGISTER AFTER 

EACH HALT OPERATOR MILL BE PROMPED 

FOR THE VALUE WITH ^SWR^XXX UEm'' 



RDSUB 



READ CONTINUOUS BLOCKS OF DATA 
START AT 230 

THIS ROUTINE CAM BE USED TO ADJUST THE ^SIGNAL MONO^ 
AND THE '^THRESHOLD POT*^ 

WGPBLK 

WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO ECT 
START AT 234 

THE PROGRAM WILL HALT THREE (3) TIMES 
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 
HALT I SWR<7|0> - NUMBER OF BYTES PER BLOCK 

HALT 2 SMR<lt0> ^ PATTERN DESIRED 

HALT 3 SWR<15I0> ^ OPERATIONAL SWITCH SETTINGS 

THIS ROUTINE CAN BE USED TO ADJUST THE «I^RITE GAP MONO^ 
AND THE ^GAP TIME MONO^, 

## IF USING SOFTWARE SWITCH REGISTER AFTER 
EACH HALT OPERATOR WILL BE PROMPED 
FOR THE VALUE WITH ^SWRzXXX NEI^^^ 

RGBLK 

READ A BLOCK OF DATA AND A FILE GAP 
START AT 240 

THIS ROUTINE IS USED AFTER ^WRITE A BLOCK AND A 
IT CAN BE USED TO ADJUST THE ^SIGNAL MON^, THE 
AND THE ^TAPE BLANK MONO« ^ 

SFFGSB 

SPACE FORWARD FILE GAP FROM ^BOT^ TO ^EOT*^ 
START AT 244 

THIS ROUTINE CAN BE USED AFTER *^WRITE FILE GAP^ FOR LOl^ SPEED 
SPACE FOWARO (TAPE BLANK MONO CAN BE ADJUSTED)^ OR AFTER READ OR 
WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
(SIGNAL MONO CAN BE CHECKED), 

BSFGSB 

BACK SPACE FILE GAP 
START AT 250 

THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE ^SIGNAL MONO^^ 



FILE GAP^ ROUTINE 
THRESHOLD POT^ 



S,2.7 THE FOLLOWING SUBROUTINES ARE USED S¥ THE ADJUSTMENT 
ROUTINES 

5.2.7.1 5ETBUF 

SETUP BLOCK SIEE AND PATTERN 

5.2.7.2 WRTBLK 

WRITES A BLOCK OF DATA 
5,2a1^3 RDBLK 

READS A BLOCK OF DATA 
5,2^7,4 NXTDR¥ 

CHAiGE DRI¥E 

6^ ERRORS 

THERE ARE A NUMBER OF ERRORS THAT CAM OCCUR IN THIS 
PROGRAM, WHEN AW ERROR IS EiCOUNTERED THE CALL TO 
THE ERROR ROUTINE IS MADE AND IF SW<!3> IS MOT 
SET AN ERROR MESSAGE PERTAINING fO THE ERROR WILL BE 
TIPED^ EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWINGi 

1, AM ERROR MESSAGE 

2, A DATA HEADER 

3, A DATA STRING 

REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR, 

7^ RESTRICTIONS 

BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 
CASSETTE IS LOADED IN THE DRIfECS) TO BE TESTED AND IS WRITE 
ENABLED AND AT BEGINNING OF TAPE^ 



8*1 



MISCEliLANEOUS 
EXECUTION TIME 



THE FIRST PASS TIKES APPEOXIMITELY 45 SECONDS ILL 
SUBSEQUENT PISSES TIKE APPROXIMATELY 100 SECOMDS^ 

8t2 STACK POINTER 

STACK IS iMlTIALLf SET TO 1100. 
8,3 PASS COUNT 

I PROGRAM PASS THRU COr'T IS KEPf IM ^PASS^, 

8^4 ITERATIOMS 

THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT 
ITERATIOiS^ ALL SUBSEQUENT PASSES WILL PERFORM FULL# 
C2000 DECIMAL UNLESS OTHERWISE SPECIFIED WITHIN A TEST)^ 
ITERATIONS^ 

8^5 SPECIAL REGISTERS 

REGISTER R3fR4 AND R5 ARE RESERVED FOR THE THE FOLLOl/^ING 

PURPOSESI 

R3 n DRI¥E 

R4 r TAGS 

R5 ^ TADB 

9^ PROGRAM DESCRIPTION 

THIS PROGRAM IS I SEQUENCE OF SMALL INDEPENDENT TESTS THAT 
CHECK THE TAU FOR PROPER OPERATION WITH TAPE MOTION KEPT 

AT A MINIMUM^ 

THE TESTS CAN BE GROUPED INTO THE FOLLOWING GENERAL GROUPS^ 

I, VERIFY THAT THE *^CONTROL AND STATUS" (TAGS) AND THE 

^Dhlh BUFFER® (TADB) REGISTERS RESPOND TO ADDRESSING^ 

2^ TEST THE *«TACS** FOR PROPER OPERATION 

3^ TEST ^READY*^ 

4^ TEST ^'CLEAR LEADER ERRORS 

5^ TEST ^TRANSFER REQUEST** 

6t TEST THE «TADB^ FOR PROPER OPERATION^ 
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WRITE LOCK 

FILE GAP 

TIMING ERROR 

OFF LINE 

UNIT SELECT 

TRANSFER REQUEST 

INTERRUPT ENABLE 

READY 

ILbS 

FUNCTION BIT 02 
FUNCTION BIT 01 
FUNCTION BIT 00 

0sWRlTE-FILE«GAP 

IsWRITE 

2=READ 

3=BACK SPACE FILE GAP 
4=BACK SPACE BLOCK GAP 
5 = SPACE FORWARD FILE G, 
6=SPACE FORWARD BLOCK 

7=REWIND 
GO BIT 



INIT 

STATE 



AP 
GAP 



READ AND/OR WRITE? 



READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ/WRITE 
READ ONLY 
READ/WRITE 
READ ONLY 
READ/WRITE 
READ/WRITE 
READ/WRITE 
READ/WRITE 



WRITE ONLY! 
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DZTAAC.NEW GENERAL INFORMATION 
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70 

7! 
72 
73 
74 
75 
76 
77 
78 



58 


.SBTTL 


OPERATIONAL 


SWITCH SETTINGS 


59 








60 
61 
62 


• » 


SWITCH 


USE 


• ® 


15 


HALT ON ERROR 


63 




14 


LOOP ON TEST 


64 




13 


INHIBIT ERROR TYPEOUTS 


65 




11 


INHIBIT ITERATIONS 


66 


• « 


10 


BELL ON ERROR 


67 




9 


LOOP ON ERROR 


68 


• ■» 


8 


LOOP ON TEST IN SWR<7:0> 


69 


J » 


7 


LOCK ON CURRENT DRIVE (ONLY 



.SBTTL 



BASIC DEFINITIONS 



;»INITIAL ADDRESS OF THE STACK POINTER *»» 1100 »»» 
STACKS 1 100 

,EQU1V EMT, ERROR ; ; BASIC DEFINITION OF ERROR CALL 

.EOUIV lOT, SCOPE ; jBASIC DEFINITION OF SCOPE CALL 

;»MISCELLANEOUS DEFINITIONS 



79 


00001 1 


HTs 


U 


; ;CODE FOR HORIZONTAL TAB 


80 


000012 


LFs 


12 


ffCODE FOR LINE FEED 


81 


000015 


CR= 


15 


ffCODE FOR CARRIAGE RETURN 


82 


000200 


CRLFs 


200 


; ;CODE FOR CARRIAGE RETURN-LINE FEED 


83 


177776 


PS= 


177776 


J {PROCESSOR STATUS WORD 


84 




.EQUIV 


PS^PSW 




85 


177774 


STKLMTs 


177774 


}; STACK LIMIT REGISTER 


86 


177772 


PiRQs 


177772 


; ; PROGRAM INTERRUPT REQUEST REGISTER 


87 


177570 


DSWRs 


177570 


; {HARDWARE SWITCH REGISTER 


88 


177570 


DDISPs 


177570 


; ; HARDWARE DISPLAY REGISTER 



{♦GENERAL PURPOSE REGISTER DEFINITIONS 



91 


000000 


R0 = 


%0 


; {GENERAL REGISTER 


92 


000001 


Bis 


%1 


; {GENERAL REGISTER 


93 


000002 


R2= 


%2 


; {GENERAL REGISTER 


94 


000003 


R3s 


%3 


{ {GENERAL REGISTER 


95 


000304 


R4s 


%4 


; {GENERAL REGISTER 


96 


000005 


R5s 


%5 


{ {GENERAL REGISTER 


97 


000006 


R6s 


%6 


; {GENERAL REGISTER 


98 


000007 


R7s 


%7 


; {GENERAL REGISTER 


99 




.EQUIV 


R6,SP 


{ {STACK POINTER 


00 




, EQUIV 


R7,PC 


{ {PROGRAM COUNTER 



1 

101 

102 



1 1 1 

112 



{^PRIORITY LEVEL DEFINITIONS 



103 


000000 


PP0 = 





{ {PRIORITY 


LEVEL 





104 


000040 


PRls 


40 


{ {PRIORITY 


LEVEL 


1 


105 


000100 


PR2a 


100 


{ {PRIORITY 


LEVEL 


2 


106 


000140 


PR3S 


140 


{ {PRIORITY 


LEVEL 


3 


107 


000200 


PR4= 


200 


{ {PRIORITY 


LEVEL 


4 


108 


000240 


PR5 = 


240 


{ {PRIORITY 


LEVEL 


5 


109 


000300 


PR6s 


300 


{ {PRIORITY 


LEVEL 


6 


1 10 


000340 


PR7 = 


340 


{ {PRIORITY 


LEVEL 


7 



I^^SWITCH REGISTER" SWITCH DEFINITIONS 
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DZTAAC.NEW 


BASIC DEFINITIONS 








113 


100000 


SW153 


10000 





114 


040000 


SW14= 


40000 




115 


020000 


SW13 = 


20000 




116 


010000 


SW12 = 


10000 




117 


004000 


swu = 


4000 




118 


002000 


SW10= 


2000 




119 


001000 


SW09= 


1000 




120 


000400 


SW08= 


400 




121 


000200 


SW07S 


200 




122 


000100 


SW06S 


100 




123 


000040 


SW05= 


40 




124 


000020 


SW04 = 


20 




125 


000010 


SW03= 


10 




126 


000004 


SW02= 


4 




127 


000002 


SW01S 


2 




128 


000001 


SW00S 


1 




129 




.EQUIV 


SW09, 


SW9 


130 




.EQUIV 


SW08, 


SW8 


131 




.EQUIV 


SW07r 


SW7 


132 




.EQUIV 


SW06» 


SW6 


133 




.EQUIV 


SW05# 


SW5 


134 




.EQUIV 


SW04, 


SW4 


135 




, EQUIV 


sm3, 


SW3 


136 




.EQUIV 


SW02, 


SW2 


137 




.EQUIV 


SW01, 


5W1 


138 




.EQUIV 


SW00, 


SW0 


139 










1 40 




;«DATA 


BIT DEFINIT 


141 


100000 


BITlSs 


100000 


142 


040000 


BIT14= 


40000 




143 


020000 


BIT13= 


20000 




144 


010000 


BIT12= 


10000 




145 


004000 


BIT11= 


4000 




146 


002000 


BIT10= 


2000 




147 


001000 


BIT09= 


1000 




148 


000400 


BIT08S 


400 




149 


000200 


BIT07S 


200 




150 


000100 


BIT06= 


100 




151 


000040 


BIT05S 


40 




152 


000020 


BIT04S 


20 




153 


000010 


BIT03= 


10 




154 


000004 


BIT02= 


4 




155 


000002 


BIT01S 


2 




156 


000001 


BIT00= 


1 




157 




, EQUIV 


BIT09 


,BIT9 


158 




, EQUIV 


BIT08 


,BIT8 


159 




.EQUIV 


bIT07 


,BIT7 


160 




.EQUIV 


BIT06 


,BIT6 


161 




.EQUIV 


BIT05 


,BIT5 


162 




.EQUIV 


BIT04 


,BIT4 


163 




, EQUIV 


BIT03 


,BIT3 


164 




.EQUIV 


BIT02 


,BIT2 


165 




.EQUIV 


BIT01 , BITl 


16b 




.EQUIV 


BIT00 


,BIT0 


167 










168 




;*BASIC 


"CPU" 


TRAP 



TAl 1 BASIC LOGIC TEST (PART 1) MAINDEC-1 1 -DZTAA-C MACYli 27(732) ll-JUN-76 15:15 PAGE 



DZTAAC.NEW 


BASIC DEFINITIONS 






169 


000004 


ERRVECs 4 


JTIME OUT AND OTHER ERRORS 


170 


000010 


RESVECs 10 


; RESERVED AND ILLEGAL INSTRUCTIONS 


171 


000014 


TBITVEC=14 


; "T" BIT 


172 


000014 


TRTVECs 14 


J TRACE TRAP 


173 


000014 


BPTVECa 14 


{BREAKPOINT TRAP (BPT) 


174 


00002^ 


lOTVECs 20 


? INPUT/OUTPUT TRAP (lOT) «»SCOPE*« 


175 


000024 


PWRVECs 24 


J POWER FAIL 


176 


000030 


EMTVECs 30 


^EMULATOR TRAP (EHT) *^*ERROH«» 


177 


000034 


TRAPVEC=34 


J-'TRAP" TRAP 


178 


000060 


TKVEC= 60 


jTTY KEYBOARD VECTOR 


179 


000064 


TPVECs 64 


JTTY PRINTER VECTOR 


180 


000240 


PIRQVEC=240 


; PROGRAM INTERRUPT REQUEST VECTOR 



TAll BASIC LOGIC TEST (PART I) MAINDEC-1 l-'DZTAA-C 
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SEQ 0019 



181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 



;TA11 FUNCTIONS 



000004 
000002 



000003 
000004 
000005 



WFG= 

WRITES 

READS 

BSFGa 

BSBG= 

SFFG= 

SFBGs 




2 
4 
6 

10 
12 
14 



REWINDS 16 



; WRITE FILE GAP FUNCTION 
JWRITE FUNCTION 
yREAD FUNCTION 

;BACK SPACE FILE GAP FUNCTION 
JBACK SPACE BLOCK GAP FUNCTION 
{SPACE FWD FILE GAP FUNCTION 
jSPACE FWD BLOCK GAP FUNCTION 
; REWIND FUNCTION 



;TA11 BIT ASSIGNMENT 
ERRORS BIT15 
CRCERRs BIT14 
LEADERS BIT13 
WRTL0CKsBIT12 
FGAPs BITll 
TIHERRs BIT10 
OFFLINESBIT09 
UNITS BIT08 
TR.REQs BIT07 
INT.ENs BIT06 
READYs BIT05 
BIT04 
BIT03 
BIT02 
BIT0i 
BIT00 



ILBSs 
FUNC2S 
FUNCls 
FUNC0S 
GOs 
FUNCTIONS 



FUNC2+KUNC1+FUNC0 



;////////////////////////////////////////////////////////////////////// 



; SPECIAL REGISTERS 
DRIVES %3 
TACSs %4 
TADBs %5 



;R3 CONTAINS THE DRIVE UNDER TEST 

;R4 IS USED AS A POINTER TO THE TAGS REGISTER 

;R5 IS USED AS A POINTER TO THE TADB REGISTER. 
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.SBTTL TRAP CATCHER 



;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A " .♦2»HALT" 
{♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
{♦LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
.sl74 



DZTAAC.NEW 


TRAP CATCHER 


221 








222 








223 




000000 




224 








225 








226 








227 




000174 




228 


000174 


000000 




229 


000176 


000000 




230 








231 


000200 


000137 


001356 


232 


000204 


000137 


001410 


233 


000210 


000137 


001416 


234 


000214 


000137 


001424 


235 


000220 


000137 


012622 


236 


000224 


000137 


012706 


237 


000230 


000137 


012774 


238 


000234 


000137 


013054 


239 


000240 


000137 


013156 


240 


000244 


000137 


013252 


241 


000250 


000137 


013336 



DISPREGl 

SWREG: 

.SBTTL 



,WORD 





; {SOFTWARE DISPLAY REGISTER 


.WORD 





{ {SOFTWARE SWITCH REGISTER 


STARTING ADDRESS(ES) 




JMP 


0«BEGIN1 


{ {JUMP TO STARTING ADDRESS OF PROGRAM 


JMP 


i#BEGIN2 


{SELECT DRIVE(S) BEFORE STARTING TEST 


JMP 


§#BEGIN3 


{SELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 


JMP 


8»BEGIN4 


{SETUP FOR MANUAL LOOPING 


JMP 


!a»WFGSUB 


{WRITE FILE GAP FROM BOT TO EOT 


JMP 


i«WRTSUB 


{WRITE CONTINUOUS BLOCKS OF DATA 


JMP 


e#RDSUB 


{READ CONTINUOUS BLOCKS OF DATA 


JMP 


@#WGPBLK 


{WRITE FILE GAP AND A BLOCK OF DATA 


JMP 


pilRGPBLK 


{READ BLOCK OF DATA AND INTO A FILE GAP 


JMP 


f SSFFGSB 


{SPACE FWD FILE GAP FROM BOT TO EOT 


JMP 


&«BSFGSB 


{BACK SPACE FILE GAPS 



Tfiil BASIC LOGIC TEST (PART 1) MA1NDEC«»U ^^DgTAA-^C 
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SEQ 002i 



242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 



I////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 

THE FOLLOWING ROUTINES CAN BE TOGGLED IN. 



THE FOLLOWING ROUTINES (LOOPl, L00P2, & L00P3) CAN BE TOGGLED 
IN WHEN IT IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS 

note: before using these routines INSURE THAT R3»R4»& R5 
ARE SETUP PROPERLY, 

»* NOTE: IF USING SOFTWARE SWITCH REGISTER 

LOCATION SWR (=1140) MUST CONTAIN 

ADDRESS "SWREG" (2176) . 

PUT VALUE INTO 176 

«* REGISTERS 3#4»&5 MUST BE SETUP 

»* VIA MOVE INSTRUCTIONS ** 
R3= IF USING DRIVE A 

400 IF USING DRIVE B 

R4s TAl 1 STATUS REG ADDRESS (TACS 177500) 

H5= TAll DATA BUFFER ADDRESS (TADB 177502) 

LOOPl WILL LOAD THE SWITCH REGISTER INTO THE TACS, 

L00P2 WILL WRITE THE CONTENTS OF THE SWITCH REGISTER 
ALL THE WAY TO END-OF-TAPE ( EOT ) . 

LOOPS WILL READ TO EOT, DATA WILL GO TO R0. 

NOTE: L00P2 AND L00P3 WILL REWIND WHEN EOT IS REACHED AND 
THEN START OVER. 



;LOAD SWITCH REGISTER INTO THE TACS 



000500 017714 000434 
000504 000775 



LOOPl : MOV 

BR 



§SWR, (STAGS 
LOOPl 



;LOAD TACS 
;LOOP 



TAl 1 BASIC LOGIC TEST 


(PART 1 ) 


MAINDEC-1 1 -DZTAA-C 
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DZTAAC.NEW 




WRITE 


SWITCH REGISTER 


ON TAPE 


FROM EOT TO EOT 




295 
296 










297 










f WRITE 


SWITCH REGISTER ON TAPE 


FROM BOT TO EOT 


298 










299 




000600 






,=600 






300 
















301 


000600 


000005 




L00P2: 


RESET 




;CLEAR ALL FLAGS 


302 


000602 


010314 






MOV 


DRIVE, PTACS 


ySELECT DRIVE 


303 


000604 


112714 


000017 




MOVE 


»REWINDlGO,gTACS 


•GO TO BOT 


304 


000610 


032714 


000040 


iS: 


BIT 


»READY,faTACS 


J WAIT TILL READY COMES UP 


305 


000614 


001775 






BEQ 


!$ 




306 


000616 


1 12714 


000003 




HOVB 


»WRITElGO,§TACS 


fSTART A WRITE 


307 


000622 


105714 




2S: 


TSTB 


gTACS 


;CHECK FOR TRANSFER REQUEST 


308 


000624 


100003 






BPL 


3$ 


;BR IF NOT SET 


309 


000626 


017715 


000306 




MOV 


PSWR, (aTADB 


;SEND DATA TO TAll 


310 


000632 


000773 






BR 


2S 


;LOOP 


311 


000634 


032714 


000040 


3$: 


BIT 


SREADY, PTACS 


;DID READY SET? 


312 


000640 


001357 






BNL 


L00P2 


; START OVER IF YES 


313 


000642 


000767 






BR 


2S 


iLOOP 


314 
















315 
















316 










317 

318 










;READ 


FROM BOT TO EOT 




319 










320 

321 




000700 






,s700 






322 
















323 


000700 


000005 




L00P3: 


RESET 




jCLEAR ALL FLAGS 


324 


000702 


010314 






MOV 


DRIVE, ©TACS 


; SELECT DRIVE 


325 


000704 


112714 


000017 




HOVB 


gREWINDiG0,9TACS 


; START A REWIND 


326 


000710 


032714 


000040 


is: 


BIT 


«READY,PTACS 


;WAIT ON REWIND TO FINISH 


327 


000714 


001775 






BEQ 


IS 




328 


000716 


112714 


000005 




MOVB 


«READ!G0, 9TACS 


; START A READ 


329 


000722 


105714 




2SJ 


TSTB 


§TACS 


jCHECK TRANSFER REQ 


330 


000724 


100002 






BPL 


3S 


;BR IF NOT SET 


331 


000726 


01 1500 






MOV 


iTADB,R0 


;PICKUP THE DATA 


332 


000730 


000774 






BR 


2S 


;LOOP 


333 


000732 


032714 


000040 


3S: 


BIT 


SREADY,3TACS 


;CHECK READY 


334 


000736 


001360 






BNE 


L00P3 


; START OVER 


335 


000740 


000770 






BR 


2S 


J LOOP 



Tat I BASIC LOGIC TEST (PART 1) MAINDEC-U -DETAI«C 
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DETAACNEW 


COMMON TAGS 










336 
337 






,SBTTL 


COMMON 


TAGS 




138 








339 






5»TH^S 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


340 






f #USED 


IN THE PROGRAM, 




341 
342 




001 100 










343 


00 1 1 00 




$CHTAGi 




Sf START or COMMON TAGS 


344 


001 100 


000000 


$PhSBl 


9 WORD 





iCOMfAINS PASS COUNT 


343 


001 102 


000 


STSTNMi 




^CONTAINS THE TEST NUMBER 


346 


001 103 


000 


lERFLGi 


»B¥TE 


nCONTAINS ERROR FLAG 


3 47 




000000 


glCNTi 


5 WORD 





;CONTAINS SUBTEST ITERATION COUNT 


348 


00 1 1 06 


000000 


SLPADRi 


, WORD 





jCONTAINS SCOPE LOOP ADDRESS 


349 


001 1 10 


000000 


0LPEHRS 


« WORD 





fCONTAINS SCOPE RETURN FOR ERRORS 


350 


001 1 1 2 


000000 


SERTTLi 


J, WORD 





jCONTAINS TOTAL ERRORS DETECTED 


35 I 


001 1 i 4 


000 


SITEMB! 


»ByTE 


nCONTAINS ITEM CONTROL BYTE 


352 


001 i IS 


001 


SERMAXs 




S nCONTAINS MAX, ERRORS PER TEST 


353 


001 1 16 


000000 


SERRPCf 


9 i^ORD 





SCONTAINS PC OF LAST ERROR INSTRUCTION 


354 


001 1 20 


000000 


$GDADR; 


, WORD 


nCONTAINS ADDRESS OF *GOOD' dkth 


355 


001 1 22 


000000 


gBDAOR; 


e WORD 


nCONTAINS ADDRESS OF 'BAD' DATA 


356 


001 124 


000000 


SGDDATs 


e WORD 





JCONTAINS 'GOOD' DATA 


357 


001 1 26 


000000 


SBDDATs 


« WORD 





JCONTAINS 'BAD' DATA 


358 


001130 


000000 




WORD 





jRESERVED«-NOT TO BE USED 


359 


001 132 


000000 




WORD 







360 


001 ! 34 


000 


SAUTOBs 


BYTE 


nAUTOMATIC MODE INDICATOR 


36 i 


001 1 35 


000 


gINTAGg 


BYTE 





J INTERRUPT MODE INDICATOR 


362 


00 J { 3g 


000000 




a WORD 







363 


001 1 40 


177570 


SWR: 


8 WORD 


DSWR 


jADDRESS OF SWITCH REGISTER 


364 


00 1142 


177570 


DISPLAY 




DDISP 


; ADDRESS OF DISPLAY REGISTER 


365 


001 144 


177560 


STKS: 


1 77560 




JTTY KBD STATUS 




00 1146 


177562 


STKBi 


177562 




jTTY KBD BUFFER 


367 


00 1150 


177564 


$TPS: 


177564 




;TTY PRINTER STATUS REG. ADDRESS 


368 


001 15 2 


177566 


STPBJ 


177566 




;TTY PRINTER BUFFER REG, ADDRESS 


369 


00 1 J 5 4 


000 


SNULL: 


,BYTL 





{CONTAINS NULL CHARACTER FOR FILLS 




001 155 


002 


SFILLS! 


«BYTE 


2 


•CONTAINS » OF FILLER CHARACTERS REQUIRED 


371 


00! 156 


012 


SFILLC: 


.BYTE 


12 


; INSERT FILL CHARS. AFTER A "LINE FEED" 


3 7 2 


001 15 7 


000 


STPFLG: 


,BYTE 





; "TERMINAL AVAILABLE" FLAG ( BI T<07>=0= YES ) 


37 3 


001 1 60 


000000 


SREGAD: 


„WORD 





jCONTAINS THE ADDRESS FROM 


37 4 












J WHICH (SREG0) WAS OBTAINED 


375 


001162 


000000 


SREG0S 


.WORD 





jCONTAINS ( (SREGAD)+0) 


376 


001 164 


000000 


SREGl : 


.WORD 





jCONTAINS ( ($REGA0)+2) 


377 


001 166 


000000 


STIMES: 







jMAX. NUMBER OF ITERATIONS 


378 


001 170 


000000 


SESCAPE 


S0 




J ESCAPE ON ERROR ADDRESS 


379 


001 172 


177607 000377 


SBELLi 


.ASCIZ 


<207><377><377> 


jCODE FOR BELL 


380 


001 176 


077 


SQUES: 


.ASCII 


/?/ 


jQUESTlON MARK 


381 


001 17 7 


015 


SCRLFS 


.ASCII 


<15> 


JCARRIAGE RETURN 


382 


001200 


000012 


SLF; 


,ASCIE 


<12> 


jLINE FEED 


383 








384 


001 202 


000000 


SAVPC: 


^WORD 





; STORAGE FOR THE PC 


385 


001204 


000000 


SAVPS: 


,WORD 





•STORAGE FOR THE PS 


386 


001206 


1 77500 


TACSL: 


177500 




J LOW BYTE ADDRESS OF TACS 


387 


001210 


177501 


tacsh: 


177501 




JHIGH BYTE ADDRESS OF TACS 


388 


001212 


177502 


TADBLl 


177502 




jLOW BYTE ADDRESS OF TADB 


389 


001 214 


177503 


TADBHj 


177503 




jHlGH BYTE ADDRESS OF TADB 


390 


001216 


000260 000262 


TAVEC: 


260,262 




JTAI 1 VECTOR ADDRESS 


391 


001222 


000300 


TAPRIO: 


300 




jTAli BR LEVEL 6 



TAl 1 BASIC LOGIC TEST (PART 1) MAINDEC-l 1 -DZTAA«C 
DZTAAC.NEW COMMON TAGS 



392 001 224 000000 

393 001230 001224 

394 001232 000000 

395 001 234 000000 



DRVKEY: 0,0 

DRVPNT: DRVKEY 

ASKKEY: 

CURDRV: 
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JDRIVE SELECT KEY : 
jCURRENT DRIVE BEING TESTED 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-U »DZTAA«C 
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SEQ 0025 



396 
397 
398 
399 
400 
401 
402 
403 
404 
405 



,SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

I»THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

^♦LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

;»N0TE1 : IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC) , 

;»N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 
DH 
DT 



; ; POINTS TO THE ERROR MESSAGE 

; 7P01NTS TO THE DATA HEADER 

; jPOINTS TO THE DATA 

nPOINTS TO THE DATA FORMAT 



410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 



SERRTB: 

;NOTE: ALL NUMBERS ARE TYPED AS 6-DIGlT OCTAL NUMBERS 



001236 
001240 
001242 
001244 



001246 
001250 
001252 
001254 



001256 
001260 
001262 
001264 



00126t> 
001270 
001272 
001274 



001276 
001 300 
001302 
001304 



001306 
001310 
001 312 
001314 



015712 
016124 
016272 



015731 
016141 
016300 



015757 
016141 
016300 



016020 
016141 
016300 



016043 
016176 
016310 



016070 
016234 
016322 
000000 



001316 016070 



1 

EMI 
DHl 
DTI 



2 

EM2 
DH2 
DT2 



3 

EM3 
DH2 
DT2 



4 

EM4 
DH2 
DT2 



5 

EMS 
DH5 
DT5 



EM6 
DHb 
DT6 



7 

EM6 



; STATUS PROBLEM 
;PC TACS 
J SERRPC SREG0 



JREADY FAILED TO SET 

;PC TACS WAIT ADDRESS 

} SERRPC SREG0 SAVPC 



; TRANSFER REQUEST FAILED TO SET 
;PC TACS WAIT ADDRESS 

; SERRPC SREG0 SAVPC 



J THE WRONG FLAG SET 

;PC TACS WAIT ADDRESS 

; SERRPC SREG0 SAVPC 



jCOUNT PATTERN FAILED 
;PC TACS EXPECT 

; SERRPC SREG0 SGDDAT 



J DATA PROBLEM 
;PC TADB 
jSERRPC SREGl 



RCV'D 
SBDDAT 



jDATA PROBLEM 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-1 1 -DZTAA-C 



DZTAAC.NEW 


ERROR POINTER TABLE 










452 


001320 


016176 




DH5 


J PC TACS 


EXPECT 


453 


001 322 


016310 




DT5 


; SERRPC SREG0 


SGDDAT 


454 


001324 


000000 











455 














456 






; ITEM 


10 






457 


001326 


016105 




EM10 


; ADDRESS FAILED 




458 


001 330 


016251 




DH10 


;PC ADDRESS 




459 


001332 


016330 




DT10 


J SERRPC SBDADR 




460 


001334 


000000 











461 














462 


001 336 




ITEMS2: 




; ITEMS 201-202 




463 














464 


001336 


016350 




EM201 


jTAll FAILED TO 


RESPOND 


465 


001340 


016422 




DH201 


J PC TACS 




466 


001342 


016336 




DT201 


; SERRPC TACS 




467 


001 344 


000000 







;BOTH NUMBERS ARE TYPED 


468 














469 


001346 


016377 




EM202 


;N0 DRIVES AVAILABLE 


470 


001350 


016437 




DH202 


I PC 




471 


001352 


016344 




DT202 


; SERRPC 




472 


001354 


000000 







J 




473 
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RCV'D 
SBDDAT 



TAll BASIC LOGIC TEST (PART 1) HAINDEC-1 1 -DZTAA-C MACYll 27(732) n-JUN-76 15:15 PAGE 13 

DZTAAC.NEW START OF TEST 



SEQ 0027 



474 

475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 



fBEGINl IS FOR NORMAL START 

;BEGIN2 IS FOP DRIVE SELECTION 

;BEGIN3 IS FOR DRIVE & ADDRESS SELECTION 

;BEGIN4 IS FOR MANUAL OPERATION 



001356 


005005 






BEGIN! 1 


CLR 


001 360 


012737 


041 101 


001224 




MOV 


001 36b 


122737 


000005 


000041 




CMPB 


001374 


001015 








BNE 


001376 


022737 


000260 


001216 




CMP 


001404 


001011 








BNE 


001406 


000403 








BR 


001410 


012705 


000001 




BEGIN2: 


MOV 


001414 


000405 








BR 


001 416 


012705 


000002 




BEGIN3! 


MOV 


001422 


000402 








BR 


001424 


012705 


000003 




BEGIN4; 


MOV 


001430 








BGNCMN; 












.SBTTL 


INIT 










; ; CLEAR 


THE 


001430 


012706 


001 100 






MOV 


001434 


005026 








CLH 


001436 


022706 


001140 






CMP 


001442 


001 374 








BNE 


001444 


012706 


001 100 






MOV 










; ; INITIALIZE 


001450 


01 2737 


011232 


000020 




MOV 


001456 


012737 


000340 


000022 




MOV 


001464 


012737 


011504 


000030 




MOV 


001 472 


012737 


000340 


000032 




MOV 


00i 500 


012737 


015322 


000034 




MOV 


001 506 


012737 


000340 


000036 




MOV 


001514 


012737 


015406 


000024 




MOV 


001522 


012737 


000340 


000026 




MOV 


001530 


016767 


007424 


007414 




MOV 


001536 


005067 


177424 






CLR 


001542 


005067 


177422 






CLR 


001546 


1 12767 


000001 


177341 




MOVE 


001554 


012767 


001554 


177324 




MOV 


001562 


012767 


001562 


177320 




MOV 










; J SIZE 


FOR A 










; jEQUAL 


TO A 


001570 


013746 


000004 






MOV 


001574 


012737 


001630 


000004 




MOV 


001602 


012767 


177570 


177330 




MOV 


001610 


0127fa7 


177570 


177324 




MOV 


001616 


022777 


177777 


177314 




CMP 


001624 


001012 








BNL 


001626 


0ifi0403 








BP 



R5 

S^AB^ggDRVKEY 
#5, ##41 
BGNCMN 

#260, 9#TAVEC 
BGNCMN 
BEGIN3 
»1,R5 
BGNCMN 
#2,R5 
BGNCMN 
#3,R5 

INITIALIZE THE COMMON TAGS 

HON TAGS (SCMTAG) AREA 
#SCMTAG,R6 
(R6) + 

SSWR,R6 JJDONE? 
.-6 

»STACK,SP 
FEW VECTORS 
#$SCOPE#^#IOTVEC 
#340, e#I0TVEC+2 
#$ERR0R,9#EMTVEC 
#340,p#EMTVEC+2 
#$TRAP,0»TRAPVEC 



jNORMAL START 

jCASSETTE DDP? 

;G0 BEGIN COMMON CODE IF NO 

jSTANDARD VECTOR? 

;G0 BEGIN COMMON CODE IF NO 

■GET DRIVES AND ADDRESSES 

;ASK FOR DRIVES FLAG 

;BEGIN COMMON CODE 

;ASK FOR DRIVES AND ADDRESSES 



'FIRST LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 



LOOP BACK IF NO 
SETUP THE STACK POINTER 



jIOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

•EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

jTRAP VECTOR FOR TRAP CALLS 
#340,P#TRAPVEC+2?LEVEL 7 

#$PWRDN,3«PWRVEC jjPOWER FAILURE VECTOR 
#340,(a#PWPVEC + 2 ;;LEVEL 7 

$ENDCT,SEOPCT ;|SETUP END-OF«.PROGRAM COUNTER 
STIMES ; ; INITIALIZE NUMBER OF ITERATIONS 

SESCAPE jjCLEAR THE ESCAPE ON ERROR ADDRESS 

#1,SERMAX ijALLOW ONE ERROR PER TEST 

»,,$LPADR -jINITIALIZE THE LOOP ADDRESS FOR SCOPE 

»,,$LPERR ,-;SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS 
SETUP FOR A SOFTWARE SWITCH REGISTER. 



fa#ERPVEC,-(SP) 

#64$, e^ERRVEC 

#DSWR,SWR 

#DDISP, DISPLAY 

{f-l,PSWR 

66$ 

65$ 



jSAVE ERROR VECTOR 
;SET UP ERROR VECTOR 

jSETUP FOR A HARDWARE SWICH REGISTER 
;AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
•BRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT = -1 
;BRANCH IF NO TIMEOUT 



TAl 1 BASIC LOGIC TEST (PART 1) MAINDEC-1 1 -DZTAA-C 
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DZTAAC, 


NEW 


INITIALIZE THE 


COMMON 


TAGS 








530 


001630 


012716 


001636 




64$: 


MOV 


»65S, (SP) 


;;SET UP FOR TRAP RETURN 


531 


001634 


000002 








RTI 






532 


001636 


012767 


000176 


177274 


65$: 


MOV 


#SWREG,SWR 


IJPOINT TO SOFTWARE SWR 


533 


001644 


012767 


000174 


177270 




MOV 


#DISPREG, DISPLAY 


534 


001652 


012637 


000004 




66$: 


MOV 


(SP)+, §#ERRVEC 


;;PESTORE ERROR VECTOR 


535 
536 










.SBTTL 


TYPE PROGRAM NAME 




537 










; STYPE 


THE NAME 


OF THE PROGRAM 


IF FIRST PASS 


538 


001656 


005227 


177777 






INC 


#-1 


jjFIRST TIME? 


539 


001662 


001036 








BNE 


HERE 


JJBRANCH IF NO 


540 


001664 


022737 


011200 


000042 




CMP 


»SENDAD,P#42 


; ; ACT-1 1? 


541 


001672 


001432 








BEQ 


HERE 


• -BKANCH IF YES 


542 


001674 


104401 


001732 






TYPE 


,MSGID 


JITYPE ASCIZ STRING 


543 










.SBTTL 


GET VALUE FOR SOFTWARE 


SWITCH REGISTER 


544 


001700 


0057 37 


000042 






TST 


?»42 


; ;ARE WE RUNNING UNDER XXDP/ACT? 


545 


001704 


001006 








BNE 


67$ 


; ;BRANCH IF YES 


546 


001706 


026727 


177226 


000176 




CMP 


SWR, 3SWREG 


; ; SOFTWARE SWITCH REG SELECTED? 


547 


001714 


001005 








BNE 


68S 


; ;BRANCH IF NO 


548 


001716 


104405 








GTSWR 




; ;GET SOFT-SWR SETTINGS 


549 


001720 


000403 








BR 


68$ 




550 


001722 


1 12767 


000001 


177204 


67$: 


MOVB 


#1,SAUT0B 


; ;SET AUTO-MODE INDICATOR 


551 


001730 








68S S 








552 


0017 30 


000413 








BR 


HERE 


; ;GET OVER THE ASCIZ 


553 










• jMSGID: 


.ASCIZ <CRLF>/MAINDEC-1 1 -DZTAA-C /<CRLF> 


554 


001760 








HERE: 
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SEQ 0029 



SS5 






5S6 






5S7 






558 






559 






560 






S61 






562 






563 






564 






S6S 






566 


001760 


010504 


567 


001762 


00530S 


568 


001764 


002406 


569 


001766 


004737 


570 


001772 


00530S 


571 


001774 


002402 


S72 


001776 


004717 


573 






574 






575 






576 






577 






578 






579 






580 






581 






582 






583 






584 






585 






586 






5B7 






588 






589 






590 


002002 


012 n7 


591 


002010 


005000 


592 


002012 


005777 


593 


002016 


000402 


594 


002020 


005200 


595 


002022 


022626 


59b 


002024 


012737 


597 


002032 


005700 


598 


002034 


001 412 


599 


002036 


104201 


600 


002040 


012705 


601 


002044 


005704 


602 


002046 


001 344 


603 


002050 


013700 


604 


002054 


001741 


605 


002056 


0001 37 


606 


002062 





ITHE CONTENTS OF BS DETERMINES WHAT WILL BE DONE 

r 

t R5SS3 NANUAL OPERATIONS 

? m^2 ASK FOR DRIVECS) AND ADDRESSES CTACS AND VECTOR) 

I RSssi ASK FOR DRIVECS5 

I R5s0 DON'T ASK FOB ANYTHING 

I 

BEGlNXi MOV R§|R4 jCOP¥ R5 

DEC R5 JASK FOR DRIVES? 

BLT CHKADR fBR IF MO 

aSR PC,i5#ASKDRV |G0 GET DRIVES TO BE TESTED 

DEC RS ?ASK FOR ADDRESSESI 

BLT CHKADR |BR IF NO 

JSR PC^SASKADR jGO GET TAU ADDRESSES 

jCHECK THAT "TACS" WILL RESPOND TO ADDRESSING 

Jl, TIMEOUT OCCURRED 

A. TYPE ERROR MESSAGE 

B, EXAMINE R4 

1. R4>0 GOTO BEGINX 

2, R4ffi0 EXAMINE (42) 
A, (425=0 GOTO BEGINX 
b, (42)>0 GOTO SENDAD 



TIMEOUT DIDN' 
A. CONTINUE 



T OCCUR 



002020 000004 



CHKADRl 



000006 000004 2S: 



MOV 


#iS,0§ERRVEC 


;IN CASE OF TIMEOUTS 


CLR 


R0 


J USE AS A SWITCH 


1ST 


iTACSL 


;SEE IF TAll RESPONDS 


BR 


2S 


|BR IF NO TIMEOUT 


INC 


R0 


;COME HERE ON TIMEOUT 


CMP 


(SP)-s., (SP)-f- 


jCLEANUP THE STACK 


MOV 


#ERRVEC + 2# SSERRVEC 


;RESTORE TIMEOUT VECTOR 


TST 


P0 


;DID A TIMEOUT OCCUR? 


BEQ 


3$ 


|BH IF NO 


ERROR 


201 


;TAl 1 FAILED TO RESPOND 


MOV 


»2,P5 


yDRIVES & ADDRESSES 


TST 


R4 


^OPERATOR INPUTS? 


BNE 


BEGINX 


jBR IF YES 


MOV 


PfJ42,R0 


|GET MONITOR RETURN ADDRESS 


BEQ 


BEGINX 


JBR IF NO MONITOR 


JMp 


i^$ENDAD 


;G0 TO END 
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607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
64i 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 



002062 
002066 
002072 
002074 
002100 
002102 
002106 
002110 
002112 
002U 4 
0021 16 
002122 
002124 
002126 
0021 32 
002136 
002142 
002144 
002150 
002152 
002154 
002156 
002160 
002164 
002166 
002170 
002174 
002176 
002202 
0022216 
00221:0 
002214 
002220 
002222 
002226 



012700 
004737 
000410 
116010 
001412 
004737 
000407 
005010 
000405 
005200 
004737 



105010 
012700 
010037 
12,1060 
001002 
105060 
005710 
001401 
000412 
104202 
012705 
005704 
001274 
013700 
001671 
0001 37 
020427 
001002 
016704 
010437 
000405 
104401 
012737 



001224 
013672 



000001 
013672 



001224 
001230 



011200 
000003 



175563 
001232 



001732 
001224 



MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

I, DESIRED DRIVES CAN NOT BE TESTED 
A, TYPE ERROR MESSAGE 

B« EXAMINE B4 

i« R4>0 GOTO BEGINX 
2. R4=0 EXAMINE (42) 

A. (42)=0 GOTO BEGINX 

B. {42)>0 GOTO SENDAD 

II. BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 

A. CLEAR BAD DRIVE FROM THE DRIVE TABLE 

B. CONTINUE IN PROGRAM 



DESIRED 


DRIVE(S) CAN BE TESTED 




A, CONTINUE IN PROGRAM 




MOV 


#DRVKEY, R0 


;PICKUP ADDRESS OF ASCII DRIVE KEY 


JSR 


PC, B«EXAM 


;G0 EXAMINE FIRST DRIVE 


BR 


IS 


;0K TO TEST---GO CHECK NEXT 


MOVB 


1(R0), (R0) 


jREPLACE 1ST WITH 2ND 


BEQ 


2$ 


;BR IF NO 2ND DRIVE SELECTED 


JSR 


PC, 0SEXAM 


;G0 EXAMINE DRIVE 


BR 


2S 


JOK TO TEST 


CLP 


CR0) 


;CLEAR DRIVE CODES 


BR 


2S 




INC 


H0 


jPOINT TO 2ND 


JSR 


PC, SIJEXAM 


;G0 EXAMINE DRIVE 


BR 


2S 


;0K TO TEST 


CLRB 


CR0) 


SCLEAR 2ND 


MOV 


8DRVKEY/R0 


; RESET ADDRESS POINTERS 


MOV 


R0, a^DRVPNT 




CMPB 


(R0) , 1 (R0) 


;1ST s 2ND? 


BNE 


3S 


;BR IF NO 


CLRB 


1 (R0) 


J YES---CLEAR 2ND 


TST 


(R0) 


; ANY DRIVES? 


BEQ 


5$ 


;BR IF NO 


BR 


MANUAL 




ERROR 


202 


;N0 DRIVES AVAILABLE 


MOV 


#2, P5 


;DRIVES & ADDRESS 


TST 


R4 


^OPERATOR INPUTS? 


BNE 


BEGINX 


;BR IF YES 


MOV 


@#42,R0 


;GET MONITOR RETURN ADDRESS 


BEQ 


BEGINX 


;N0 MONITOR 


JMP 


9<8$ENDAD 


J GO TO END 


CMP R4, 


#3 




BNE 


OK 




MOV 


-1,R4 




MOV 


R4,§5f ASKKEY 




BR START 




TYPE 


,MSGID 


; POWER FAIL RESTART 


MOV 


SDPVKEY, @#DRVPNT 
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SEQ 0031 





wta £ s 3 ^ 


013777 


rSv \ & &V} 


176754 


STAST S 


MOV 


P#TAVEC*2? f TAVEC 


iSETUP TAli TRAP VECTOR 


&^ A 




00S07 7 








CLR 


iTAVEC*2 




665 


vv A £ 'to 


Ml 


}QiQi9 3 t if? 


1 77776 




MOV 


#3401 @#PS 


J LOCKOUT ALL I/O INT 




0022S4 










MOV 


|iTACSti» TACS 


J SETUP TACS 




a *3 "1 £. tJS 


013703 








MOV 


@#TADBL; TADB 


> SETUP TADB 


~ J? 




tafiis t 3 "S 


via I kviYi 






TST 


f #SPASS 


fIF FIRST PASS SETUP FOR EXTRA LONG 


669 


jra /a "s 


1 102 4 








BN£ 


1$ 


{OTHERWISE USE OLD VALUES 


670 


00227 2 


0127 37 


011/ ll 


012116 






g^CBlTiS^iSMAXCNT 




671 


002 300 


0057 37 


000042 








f #42 


fUNDEP MONITOR CONTROL? 


67 2 


002 304 


0Sfl 1 B i to 








BNE 


IS 


ISKIP TYPEOUT IF YES 


67 3 


002 306 




d SI 'f 






TYPE 


,65S IJTYPE 


ASCIZ STRING 


674 




0B04 I J 








BF 


64S nGET 


OVER THE ASCIZ 


675 










1 } 6S$ 1 


(&SCIE 


<15><12>/D0 A MANUAL REWIND/ 






















02342 


005037 








CLR 


f #$TSTNM 


; ZERO THE TEST NUMBER 


678 


002 346 










CLR 


DRIVE 


f SET DRIVE TO "A" 


679 




01 3701 


00 J 2 30 






MOV 


f »DRVPNT^ Rl 


jGET DRIVE POINTER 








I if* 1 






CMPB 


CRi)f #'A 


; IS IT DRIVE "A"? 




aaj 1 Art 


001 402 








BEQ 


TDRV 


; BR IF YES 






012703 


£]i A ^ 






MOV 


#UNITrDRlVE 


; SET DRIVE TO "B" 


I , 
68 3 


002 366 








TDRV S 










002 366 


1 Ki 9 "iSa I 








T YPF 


,65$ ; ;TYPE 


ASCIZ STRING 


685 


002 37 2 


0W04 I I 








_ - 


64$ ifGEI 


OVER THE ASCIZ 


686 










} J 65 $ S 


A5C 


<t5><12>»TESTlNG DRIVE 




68 7 


002416 








64$ • 








688 


002416 


11216 7 


176612 






MOVE 


(Ri )-^,CURDRV 


; SETUP TO TYPE CURRENT DRIVE 


689 


W 01 A O O 


1 ^ 4 40 J 


00 1234 






TYPE 


f CURDRV 




690 


002426 


104 401 


00 1177 






TYPE 


iSCRLF 


{TYPE A CR & LF 


691 


00^4 J4 










RW 


(Rl) 


;LAST DRIVE BEEN SELECTED 


692 


002 4 3 4 


00 1 002 










IS 


J BR IF NO 


69 3 


002436 


012701 


0M1 






MOV 


?JDRVKEY» Rl 


fRESET DRIVE POINTER 




£ 'i ^ £ 








1 S 1 


MOV 


R1,@#DRVPNT 


fSAVE DRIVE POINTER FOR NEXT TIME 


b95 


002446 




001232 








P«ASKKEY 


;G0 START TESTING IF NO MANUAL 


696 


002 452 


002007 








RTF 


2$ 


; OPERATIONS REQUESTED 


697 


002454 


005000 








rr D 


R0 




698 


002456 


000000 








wsr T 




•GIVE CONTROL TO THE OPERATOR 


699 


002 460 


022767 


000 17 6 


176452 




CMP 


«SlNREG,SWR 


jSOFTWARE SWITCH REG»? 


700 


002 466 


001 00 1 








BNE 


20$ 


;N0 - LET HIM GO 


701 


002470 


1 04 405 








GTSWR 




;GET NEW SWR VALUE 


70 2 


00247 2 








20S ! 








703 










ITHIS 


CODE IS 


FOR ACTU & DDP 




704 


002472 


005737 


000042 




2$: 


TST 


9#42 


; IS THERE A MONITOR? 


705 


00247b 


001406 








BEQ 


TSTl 


;G0 START TESTING IF NO 


706 


002500 


010314 








MOV 


DRiVErSTACS 


; IF YES SELECT DRIVE 


707 


002502 


1 12714 


000017 






MOVB 


#REWINDiGO,PTACS 


■ SEND TAPE TO BOT 


708 


002506 


032714 


000040 




3S! 


BIT 


#READY*PTACS 


; WAIT ON READY 


709 


002512 


001775 








BEQ 


3$ 


•FALL THRU IF READY=1 
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710 
7U 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 



002514 
002516 
002524 
002530 
002536 
002540 
002542 
002550 
002552 
002556 
0025b4 
002570 

002572 
002576 
002602 



000004 
012767 
012706 
012737 
005014 
000420 
012737 
022626 
01 3746 
012737 
010437 
1040! 

012637 

000137 
012737 



;THE FOLLOWING TESTS WILL CHECK THE TAll 

; STATUS (TACS) AND DATA BUFFER (TADB) REGISTERS 

;T0 INSURE THAT THEY RESPOND TO ADDRESSING. 



; TAl 1 REGISTER ADDRESS TEST 

; INSURE THAT TACS RESPONDS TO ADDRESSING 



TEST IF TACS EXIST 



000001 176442 
001 100 

002542 0450004 



000006 000004 1$; 



000030 
011516 
001122 



000030 
011124 

000006 



000004 23 : 



SCOPE 






MOV 


#i,STIMES ; ;D0 1 


ITERATION 


MOV 


#STACK,SP 


; SETUP THE STACK POINTER 


MOV 


#i$,§#ERRVEC 


?SETUP FOR BUS TIMEOUT 


CLR 


gTACS 


jTACS ARE YOU THERE? 


BR 


2S 


;YES — NO TRAP 


MOV 


SERRVEC+2,@»ERRVEC 


;RESTORE TRAP CATCHER 


CMP 


(SP)-f-, (SP)-s- 


jCLEAN UP THE STACK 


MOV 


§#EMTVEC,"(SP) 


;SETUP FOR THIS ERROR CALL 


MOV 


tfERRORl r§aEMTVEC 


;SKIP OVER THE SAVE OF TACS 


MOV 


TACS,P#SBDADR 


;GET THE FAILING ADDRESS 


ERROR 


10 


jERROR TIME OUT OCCURRED 






;WHEN ADDRESSING THE TACS REGISTER 


MOV 


(SP)+,@#EMTVEC 


•RESTORE THE ERROR CALLS VECTOR 


JMP 


i#SEOP 


•GO TO END OF PROGRAM 


MOV 


#ERRVEC*2* &#ERRVEC 


jRESTORE TRAP CATCHER 



fTAli REGISTER ADDRESS TEST 

; INSURE THAT TADB RESPONDS TO ADDRESSING 



«TEST 2 



TEST IF TADB EXIST 



746 


002610 


000004 






TST2: 


SCOPE 






747 


002612 


012767 


000001 


176346 




MOV 


» 1 , STIMLS ; ;D0 J 


ITERATION 


748 


002620 


012706 


001 100 






MOV 


«STACK,SP 


;SETUP THE STACK POINTER 


749 


002624 


012737 


002636 


000004 




MOV 


#lS,g#ERRVEC 


;SETUP FOR BUS TIMEOUT 


750 


002632 


005015 








CLR 


§TADB 


jTADB ARE YOU THERE? 


751 


002634 


000420 








BR 


2S 


; YES -- NO TRAP 


752 


002636 


012737 


000006 


000004 


iss 


MOV 


»ERRVEC + 2, 0IJERRVEC 


J RESTORE TRAP CATCHER 


753 


002644 


022626 








CMP 


(SP)>, (SP)+ 


.•CLEAN UP THE STACK 


754 


002646 


01 3746 


000030 






MOV 


f #EMTVEC,»(SP) 


; SETUP FOR THIS ERROR CALL 


755 


002652 


012737 


011516 


000030 




MOV 


SERRORl ,g«EMTVEC 


JSKIP OVER THE SAVE OF TACS 


756 


002660 


010537 


00U22 






MOV 


TADB, 9I$BDADR 


;GET THE FAILING ADDRESS 


757 


002664 


104010 








ERROR 


10 


; ERROR TIME OUT OCCURRED 


758 
















;WHEN ADDRESSING THE TADB REGISTER 


759 


002666 


012637 


000030 






MOV 


(SP)+,&»EMTVEC 


; RESTORE THE ERROR CALLS VECTOR 


760 


002672 


0001 37 


01 1 124 






JMP 


?»$EOP 


J GO TO END OF PROGRAM 


761 


002676 


012737 


000006 


000004 


2S: 


MOV 


»ERRVEC+2#9«ERRVEC 


J RESTORE TRAP CATCHER 
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DZTAAC.NEW T2 TEST IF TADB EXIST 



762 






T^A 






7^^ 
































\OV£ / 634 


000004 


770 


002706 


012767 


771 


0027 1 4 


01 2706 


772 


002720 


012737 


77 3 


002726 


1 0501 4 


774 


002730 


000420 


775 


002732 


012737 


776 


002740 


022626 


777 


002742 


013746 


778 


002746 


012737 


779 


002754 


010437 


780 


002760 


104010 


781 






782 


002762 


012637 


783 


002766 


0001 37 


784 


002772 


012737 


785 






786 






787 






788 






789 






790 






791 






792 


003000 


000004 


793 


00 3002 


012767 


794 


00301 


01 2706 


795 


00 3014 


0127 37 


796 


003022 


105015 


797 


003024 


000 420 


798 


003026 


012737 


799 


003034 


022626 


800 


003036 


013746 


801 


003042 


0127 37 


802 


003050 


010537 


803 


003054 


104010 


804 






805 


003056 


012637 


806 


003062 


0001 37 


807 


003066 


0127 37 


808 






809 












811 






812 






813 






814 






815 


003074 


000004 


816 


003076 


012767 


817 


003104 


012706 



000030 
011516 
001122 



0U124 

000006 



000001 
001 100 
003026 



jTAl 1 REGISTER ADDRESS TEST 
; INSURE THAT TACS RESPONDS TO ADDRESSING 

;»TEST 3 TEST FOR LOW BYTE OF TACS 

TST3: 



000001 
001 100 
002732 



000006 000004 IS; 



SCOPE 












MOV 


#STACK,SP 


JSETUP THE STACK POINTER 


MOV 


tlSf P»ERRVEC 


; SETUP FOR BUS TIMEOUT 


CLRB 


gTACS 


;TACS ARE YOU THERE? 


BR 


2$ 


; YES NO TRAP 


MOV 


IERRVEC + 2» g«ERRVEC 


;RESTORE TRAP CATCHER 


CMP 


(SP)+, (SP)+ 


; CLEAN UP THE STACK 


MOV 


e«EMTVEC, -(SP) 


;SETUP FOR THIS ERROR CALL 


MOV 


SERRORl,g»#EMTVEC 


;SKIP OVER THE SAVE OF TACS 


MOV 


TACS, 8»$BDADR 


;GET THE FAILING ADDRESS 


ERROR 


10 


jERROR — TIME OUT OCCURRED 






•WHEN ADDRESSING THE TACS REGISTER 


MOV 


CSP)4-f (a»EMTVFC 


; RESTORE THE ERROR CALLS VECTOR 


JMP 


&#$EOP 


;G0 TO END OF PROGRAM 


MOV 


#ERRVEC+2, ?»ERRVEC 


; RESTORE TRAP CATCHER 



;TA11 REGISTER ADDRESS TEST 

; INSURE THAT TADB RESPONDS TO ADDRESSING 

TEST FOR LOW BYTE OF TADB 



000006 000004 1$ : 

000030 

011516 000030 
001122 



000030 
011124 

000006 



000004 2$ : 



SCOPE 






MOV 


llrSTIMFS ; ;D0 ] 


ITERATION 


MOV 


tSTACK, SP 


; SETUP THE STACK POINTER 


MOV 


#1S,?«ERRVEC 


jSETUP FOR BUS TIMEOUT 


CLRB 


@TADB 


;TADB ARE YOU THERE? 


BR 


2S 


; YES NO TRAP 


MOV 


SERRVEC + 2, ia»ERRVEC 


; RESTORE TRAP CATCHER 


CMP 


{SP)+, (SP)+ 


;CLEAN UP THE STACK 


MOV 


P#EMTVEC,-(SP) 


jSETUP FOR THIS ERROR CALL 


MOV 


»ERR0R1 ,»»EMTVEC 


;SKIP OVER THE SAVE OF TACS 


MOV 


TADBr P#SBDADR 


;GET THE FAILING ADDRESS 


ERROR 


10 


J ERROR -- TIME OUT OCCURRED 

; WHEN ADDRESSING THE TADB REGISTER 


MOV 


(SP)+,e»EMTVEC 


JRESTORE THE ERROR CALLS VECTOR 


JMP 


?»SEOP 


;G0 TO END OF PROGRAM 


MOV 


»ERRVEC*2f PSEPPVEC 


; RESTORE TRAP CATCHER 



; TAl 1 REGISTER ADDRESS TEST 

; INSURE THAT TACSH RESPONDS TO ADDRESSING 



TEST FOR HIGH BYTE OF TACS 



000001 
001100 



SCOPE 

MOV 

MOV 



II , STIMES 
«STACK,SP 



; ;D0 1 ITERATION 

; SETUP THE STACK POINTER 
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DZTAAC.NEW 


T5 


TEST F 


818 


0031 10 


012737 


003124 


819 


0031 16 


105077 


176066 


820 


003122 


000421 




821 


0031 24 


012737 


000006 


822 


003132 


022626 




823 


003134 


013746 


000030 


824 


003140 


012737 


011516 


825 


003146 


016737 


176036 


826 


003154 


104010 




827 








828 


003156 


012637 


000030 


829 


003162 


000137 


011124 


830 


003166 


012737 


000006 


831 








832 








833 








834 








835 








836 








837 








838 


003174 


000004 




839 


003176 


012767 


000001 


840 


003204 


012706 


001100 


841 


003210 


012737 


003224 


842 


003216 


105077 


175772 


843 


003222 


000421 




844 


003224 


012737 


000006 


845 


003232 


022626 




846 


003234 


013746 


000030 


847 


003240 


012737 


011516 


848 


003246 


016737 


175742 


849 


003254 


104010 




850 








851 


003256 


012637 


000030 


852 


003262 


000137 


011124 


853 


003266 


012737 


000006 


854 









000004 IS : 



000030 
001 122 



000004 2$ : 



MOV 

CLRB 

BR 

MOV 

CMp 

MOV 

MOV 

MOV 

ERROR 

MOV 
JMP 
MOV 



000030 
001122 



000004 2$: 



»1S,P«ERRVEC 

§TACSH 
2S 

#ERRVEC+2,g#ERRVEC 
(SP)+» (SP)+ 
ia«EMTVEC,-(SP) 
»ERR0R1,§#EMTVEC 
TACSH, OtSBDADP 
10 

(SP) +, ^#EMTVEC 

P«$EOP 

tERRVEC+2,g#EPRVEC 



;SETUP FOR BUS TIMEOUT 

; TACSH ARE YOU THERE? 

;YES NO TRAP 

; RESTORE TRAP CATCHER 

jCLEAM up THE STACK 

jSETUP FOR THIS ERROR CALL 

;SKIP OVER THE SAVE OF TACS AND TADB 
;GET THE FAILING ADDRESS 
JERROR TIME OUT OCCURRED 
; WHEN ADDRESSING THE TACSH REGISTER 
; RESTORE THE ERROR CALLS VECTOR 
;G0 TO END OF PROGRAM 
JRESTORE TRAP CATCHER 



;TA11 REGISTER ADDRESS TEST 

; INSURE THAT TADBH RESPONDS TO ADDRESSING 



TEST FOR HIGH BYTE OF TADB 



SCOPE 






MOV 


#1, STIMES ; ;D0 j 


ITERATION 


MOV 


•STACK, SP 


jSETUP THE STACK POINTER 


MOV 


#iS,i#ERRVEC 


jSETUP FOR BUS TIMEOUT 


CLRB 


?TADBH 


;TADBH ARE YOU THERE? 


BP 


2S 


; YES -- NO TRAP 


MOV 


#ERRVEC+2,?#ERRVEC 


JRESTORE TRAP CATCHER 


CMp 


(SP)+, {SP)+ 


;CLEAN UP THE STACK 


MOV 


§SEMTVEC,-CSP) 


; SETUP FOR THIS ERROR CALL 


MOV 


»ERRORl,g«EMTVEC 


jSKIP OVER THE SAVE OF TACS 


MOV 


TADBH, iSSBDADR 


;GET THE FAILING ADDRESS 


ERROR 


10 


; ERROR -- TIME OUT OCCURRED 

jWHEN ADDRESSING THE TADBH REGISTER 


MOV 


(SP)+,08EMTVEC 


JRESTORE THE ERROR CALLS VECTOR 


JMP 


eSSEOP 


J GO TO END OF PROGRAM 


MOV 


«ERRVEC+2,§#ERRVEC 


JRESTORE TRAP CATCHER 
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SEQ 0035 



855 




856 




857 




858 




859 




8b0 




861 




862 




863 


003274 


864 


003276 


865 


003304 


866 


003306 


867 


003312 


868 


003314 


869 




870 




871 




872 


003316 


873 


003320 


874 


003326 


875 


003330 


876 


003334 


877 


003336 


878 




879 




880 
881 


003340 


882 


003342 


883 


003350 


884 


003352 


885 


003356 


886 


003360 


887 
888 




889 
890 


003362 


891 


003364 


892 


003372 


893 


003374 


894 


003400 


895 


003402 


896 




897 




898 




899 


003404 


900 


003406 


901 


003414 


902 


003416 


903 


003422 


904 


003424 


905 




906 




907 




908 


003426 


909 


003430 


910 


003436 



012767 
000005 
032714 
001 401 
104001 



003306 

040000 



012767 003330 175560 
000005 

032714 004000 
001401 



012767 003352 175536 



032714 002000 
001 401 
104001 



012767 
000005 
032714 



003374 175514 



012767 

000005 
032714 
001401 
104001 



003416 175472 



;////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
THE FOLLOWING TESTS WILL CHECK THE INITIAL STATE OF ALL BITS 
IN THE TACS THAT ARE NOT DRIVE DEPENDENT. 

////////////////////////////////////////////////////////////////////// 
♦TEST 7 TEST INITIAL CONDITION OF TACS BIT14 = 

TST7! SCOPE 

; ;SET SCOPE LOOP ADDRESS 



is: 



MOV 
RESET 
BIT 
BEQ 
ERROR 



»1$,SLPADR 



; IS BIT14 OF TACS = 0? 
;;BR IF YES 

jERROR BITl 4 OF TACS DIDN'T INITIALIZE PROPER 
• • #»♦♦♦♦«♦»♦«♦*♦«*»*«♦»*»♦♦»«♦♦♦»»*»#♦#»*»»♦««♦»#♦«•*##«##»♦###»♦* 

j»TEST 10 TEST INITIAL CONDITION OF TACS BITl 1 = 

TST10: SCOPE 

; ;SET SCOPE LOOP ADDRESS 



IS! 



MOV 
RESET 
BIT 
BEQ 
ERROR 



«BIT14,9TACS 

TST10 
1 



#1$,$LPADR 



j»TEST 11 

TSTll ! SCOPE 
MOV 
RESET 

IS: BIT 

BEQ 
ERROR 



«BIT1 UPTACS ; IS BITll OF TACS = 0? 

TSTll ; ;BR IF YES 

1 jERROR -- BITl 1 OF TACS DIDN'T INITIALIZE PROPER 

TEST INITIAL CONDITION OF TACS BIT10 = 

$1$. SLPADR ; ;SET SCOPE LOOP ADDRESS 

#BIT10,eTACS ; IS BIT10 OF TACS = 0? 

TST12 ; ;BR IF YES 

1 jERROR BIT10 OF TACS DIDN'T INITIALIZE PROPER 



♦TEST 12 TEST INITIAL CONDITION OF TACS BIT08 = 

TST12S SCOPE 

DIS, SLPADR ; jSET SCOPE LOOP ADDRESS 



IS! 



IS 



MOV 
RESET 
BIT 
BEQ 
ERROR 



SCOPE 
MOV 
RESET 
BIT 
BEQ 
ERROR 



#BIT08,§TACS ; IS BIT08 OF TACS = 0? 

TST13 ;jBR IF YES 

1 ; ERROR -- BIT08 OF TACS DIDN'T INITIALIZE PROPER 

TEST INITIAL CONDITION OF TACS 8IT07 = 



»1S,$LPADR 



;SET SCOPE LOOP ADDRESS 



#BIT07, PTACS 
TST14 



012767 003440 

000005 



; IS 8IT07 OF TACS = 0? 
;BR IF YES 

jEPROR BIT07 OF TACS DIDN'T INITIALIZE PROPER 
;•»»♦»♦»#»»♦#♦#«#»*♦♦*»»»»##»♦♦»»»#»»#»#»»*♦»»«*#♦«»»♦**»»«♦«»♦«« 

J*TEST 14 TEST INITIAL CONDITION OF TACS BIT06 = 

TST14: SCOPE 

MOV ff IS/ SLPADR ; ;SET SCOPE LOOP ADDRESS 

RESET 
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DZTAAC.NEW 


T14 


911 


003440 


032714 


912 


003444 


001401 


913 


003446 


104001 


914 






915 






916 






917 


003450 


000004 


918 


003452 


012767 


919 


003460 


000005 


920 


003462 


032714 


921 


003466 


001401 


922 


003470 


104001 


923 






924 






925 






926 


003472 


000004 


927 


003474 


012767 


928 


003502 


000005 


929 


003504 


032714 


930 


003510 


001401 


931 


003512 


104001 


932 






933 






934 






935 


003514 


000004 


936 


003516 


012767 


937 


003524 


000005 


938 


003526 


032714 


939 


003532 


001401 


940 


003534 


104001 


941 






942 






943 






944 


003536 


000004 


945 


003540 


012767 


946 


003546 


000005 


947 


003550 


032714 


948 


003554 


001401 


949 


003556 


104001 


950 






951 






952 






953 


003560 


000004 


954 


003562 


012767 


955 


003570 


000005 


956 


003572 


032714 


957 


003576 


001401 


958 


003600 


104001 


959 







TEST INITIAL CONDITION OF TACS BIT06 = 



IS : BIT #81T06,§TACS ; IS BIT06 OF TACS - 0? 

BEQ TST15 ; ;BR IF tZS 

ERROR 1 'ERROR BIT06 OF TACS DIDN'T INITIALIZE PROPER 

j«TEST 15 



TST15: 



003462 

000020 



003504 175404 



003526 175362 



ISS 



003550 175340 



003572 

000001 



SCOPE 
MOV 
RESET 
BIT 
BEQ 
ERROR 



TEST INITIAL CONDITION OF TACS BIT04 
»lSr$LPADR ; ;SET SCOPE LOOP ADDRESS 



»BIT04, PTACS ; IS BIT04 OF TACS = 0? 

TST16 J ;BR IF YES 

1 • ERROR -» BIT04 OF TACS DIDN'T INITIALIZE PROPER 

. 

♦TEST 16 TEST INITIAL CONDITION OF TACS BIT03 = 

J 

TST16: SCOPE 

»l$r SLPADR ; jSET SCOPE LOOP ADDRESS 



IS: 



MOV 
RESET 
BIT 
BEQ 
ERROR 



|BIT03#0TACS 
TST17 

1 



;IS BIT03 OF TACS = 0? 
jBR IF YES 

jERROR B1T03 OF TACS DIDN'T INITIALIZE PROPER 



♦TEST 17 
TST17 



SCOPE 
MOV 
RESET 
BIT 
BEQ 
ERROR 



TEST INITIAL CONDITION OF TACS BIT02 = 

lis, SLPADR J JSET SCOPE LOOP ADDRESS 

«BIT02,0TACS JIS BIT02 OF TACS x 0? 

TST20 ; ;BR IF YES 

1 ;ERROR — BIT02 OF TACS DIDN'T 



INITIALIZE PROPER 



♦TEST 20 TEST INITIAL CONDITION OF TACS BIT01 

TST20! SCOPE 

MOV #1S,$LPADR J, -SET SCOPE LOOP ADDRESS 

RESET 

IS: BIT #BIT01rPTACS ; IS BIT01 OF TACS = 0? 

BEQ TST21 ; ;BR IF YES 

ERROR 1 ;ERROR BIT01 OF TACS DIDN'T INITIALIZE PROPER 

} • ^^ft^as^^^^j**********® 

;*TEST 21 TEST INITIAL CONDITION OF TACS BIT00 s 



TST21! 



SCOPE 

MOV 

RESET 

BIT 

BEQ 

ERROR 



#1S»$LPADR 

»BIT00#9TACS 

TST22 

1 



J 5 SET SCOPE LOOP ADDRESS 

; IS 8IT00 OF TACS = 0? 
;;BR IF YES 

•ERROR " BIT00 OF TACS DIDN'T INITIALIZE PROPER 



tl^ll BASIC LOGIC TEST iPk^i U MAINDIC-U «DITI^A»e MAC¥U |l«»aUN««76 iSsIS PASS 23 

DETAACNEW T2i TiST INITIAL CONDITION OF TAGS BIW a 



SEQ 0037 



9fe0 








961 








962 








963 








964 








96S 








966 








967 








966 








969 


003602 


000004 




970 


003604 


052714 


000400 


971 


003610 


032714 


000400 


972 


0036 1 4 


001001 




973 


003616 


104001 




974 








975 


003620 


042714 


000400 


976 


003624 


032714 


000400 


977 


003630 


001401 




978 


003632 


104001 




979 








980 
981 








982 


003634 


000004 




983 


003636 


012767 


000005 


984 


003644 


012714 


000400 


985 


003650 


032714 


000400 


986 


003654 


001001 




987 


003656 


104001 




988 








989 


003660 


000005 




990 


003662 


032714 


000400 


991 


003666 


001401 




992 


003670 


104001 












994 








995 








996 


003672 


000004 




997 


003674 


052714 


000100 


998 


003700 


032714 


000100 


999 


003704 


001001 






003 706 


I atvv 1 




1001 

1002 


003710 


042714 


000100 


1003 


003714 


032714 


000100 


1004 


003720 


001401 




1005 


003722 


104001 




1006 








1007 








1008 
1009 


003724 


000004 




1010 


003726 


012767 


000005 


101 1 


003734 


012714 


000100 


1012 


003740 


032714 


000100 


1013 


003744 


001001 




1014 


003746 


104001 




1015 









! ////////////////////////////////////////////////////////////////////// 
J////////////////////////////////////////////////////////////////////// 
|THE FOLLOWING TESTS VALIDATES EACH READ/WRlTE 
|BIT OF THE TACS FOR SETTING, CLEARING, 
)AND INITIALIZING 

MUHnnutnn/tnnn/fnftnntn/ftunnnn/nnnntnnnnn 

f I »»#»#*###*«#**»»»#»#»#®»»»«»® Sftft****'***^*********® 

,»TEST 22 TEST BIT08 OF TACS MAY BE "SET" AND "CLEARED" 

I 

TST22i SCOPE 

BIS 8BIT08,PTACS >SET BIT08 OF TACS 

BIT SBIT08,9TACS |DID BIT08 SET? 

BNE U JBR IF YES 

ERROR 1 ;BIT08 FAILED TO SET 

BIC »BIT08,9TACS ;NOW CLEAR IT 

BIT #BIT08,PTACS fDlD BIT08 CLEAR? 

BEQ TST23 ; jBR IF YES 

ERROR 1 ;ERPOR — BIT08 OF TACS FAILED TO CLEAR 

,#TEST 23 TEST BIT08 OF TACS INITIALIZE TO ZERO 

J f 

TST23I SCOPE 

MOV »5, 3TIMES If DO 5 ITERATIONS 

MOV |BIT08,9TACS ;SET BIT08 OF TACS 

BIT «BIT08,0TACS ;DID B1T08 SET? 

BNE 2S JBR IF YES 

ERROR 1 fBIT08 FAILED TO SET 



IS! 



2Si 



j»TEST 

} } 

TST24! 



RESET 

BIT 
BEQ 
ERROR 

24 

SCOPE 

BIS 
BIT 
BNE 
ERROR 



fCLEAR THE WORLD 
#BIT08, PTACS ;DID BIT08 CLEAR? 

TST24 ; ;BR IF YES 

1 jERROR RESET DIDN'T CLEAR BIT08 

TEST BIT06 OF TACS MAY BE "SET" AND "CLEARED" 



»BIT06,PTACS 

#BIT0fe,@lACS 

1$ 

1 



SET BIT06 OF TACS 
DID 8IT06 SET? 
BR IF YES 

BIT06 FAILED TO SET 



175232 



is; BIC «BIT06,9TACS jNOW CLEAR IT 

>BIT06,9TACS ;DID BIT06 CLEAR? 

TST25 ; ;BR IF YES 

1 ; ERROR «- BIT06 OF TACS FAILED TO CLEAR 
,»TEST 25 TEST BIT06 OF TACS INITIALIZE TO ZERO 

• } ft^ftSi******* «''^'»*«* 

TST25! SCOPE 

I5,$TIMES ; ;D0 5 ITERATIONS 

ISS MOV #BIT06, 0TACS j SET BIT06 OF TACS 

»BIT06,3TACS fDID BIT06 SET? 

2$ ;BR IF YES 

1 JBIT06 FAILED TO SET 



BIC 
BIT 

BEQ 
ERROR 



MOV 
MOV 
BIT 
BNE 
ERROR 



TAl 1 BASIC LOGIC TEST (PART 1 ) MAlNDEC-1 1 -DZTAA-C 

TEST BIT06 OF TACS INITIALIZE TO ZERO 
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ZTAAC. 


NEW 


T25 


1016 


003750 


000005 


1017 


003752 


032714 


1018 


003756 


001401 


1019 


003760 


104001 


1020 






1021 






1022 






1023 


003762 


000004 


1024 


003764 


052714 


1025 


003770 


032714 


1026 


003774 


001001 


1027 


003776 


104001 


1028 






1029 


004000 


042714 


1030 


004004 


032714 


1031 


004010 


001401 


1032 


004012 


104001 


1033 






1034 






1035 






1036 


004014 


000004 


1037 


004016 


012767 


1038 


004024 


012714 


1039 


004030 


032714 


1040 


004034 


001001 


1041 


004036 


104001 


1042 






1043 


004040 


000005 


1044 


004042 


032714 


1045 


004046 


001401 


1046 


004050 


104001 


1047 






1048 






1049 






1050 


004052 


000004 


1051 


004054 


052714 


1052 


004060 


032714 


1053 


004064 


001001 


1054 


004066 


104001 


1055 






1056 


004070 


042714 


1057 


004074 


032714 


1058 


004100 


001401 


1059 


004102 


104001 


1060 






1061 






1062 






1063 


004104 


000004 


1064 


004106 


012767 


1065 


004114 


012714 


1066 


004120 


032714 


1067 


004124 


001001 


1068 


004126 


104001 


1069 






1070 


004130 


000005 


1071 


004132 


032714 



000020 
000020 



000020 

000020 



000005 
000020 



000010 
000010 



000005 175052 



»TEST 
TST2b: 



RESET 
BIT 
BEQ 
ERROR 

26 

SCOPE 
BIS 
BIT 
BNE 
ERROR 

BIC 
BIT 
BEQ 
ERROR 



fCLEAR THE WORLD 
#8iT06,iTACS ;DID 8IT06 CLEAR? 

TST26 ; ;BR IF YES 

1 ; ERROR RESET DIDN'T CLEAR BIT06 

TEST BIT04 OF TACS MAY BE "SET" AND "CLEARED" 



»BIT04, 9TACS 
|BIT04,PTACS 

1$ 
1 

#BIT04,PTACS 

#BIT04,0TACS 

TST27 

1 



SET BIT04 OF TACS 
DID BIT04 SET? 
BR IF YES 

BIT04 FAILED TO SET 



;NOW CLEAR IT 
;DID BIT04 CLEAR? 
jfBR IF YES 

; ERROR — BIT04 OF TACS FAILED TO CLEAR 



;»TEST 27 TEST BIT04 OF TACS INITIALIZE TO ZERO 

• • «*»»«^*#»'^» 
SCOPE 
MOV 
MOV 



TST27: 

US 



;«TEST 

TSf30 



BIT 
BNE 
ERROR 

RESET 
BIT 
BEQ 
ERROR 

30 

SCOPE 

BIS 
BIT 
BNE 
ERROR 



«5,STIMES 

#BlT04,eTACS 
8BIT04, PTACS 

2S 
I 



; ;D0 5 ITERATIONS 

•SET B1T04 OF TACS 
•DID BIT04 SET? 
;BR IF YES 

;BIT04 FAILED TO SET 



yCLEAR THE WORLD 
#BIT04r«aTACS ;DID 8IT04 CLEAR? 

TST30 ? ;BR IF YES 

1 'ERROR RESET DIDN'T CLEAR BIT04 

TEST BIT03 OF TACS MAY BE "SET" AND "CLEARED" 



«BIT03, PTACS 

#BIT03,@TACS 

IS 

1 



fSET BIT03 OF TACS 
;DID BIT03 SET? 

;BR IF YES 

;BIT03 FAILED TO SET 



1$S 



BIC 
BIT 
BEQ 
ERROR 

J I 

|#TEST 31 

1 1 »##♦«#»»♦##• 

TST31 ! SCOPE 

MOV 

IS: MOV 

BIT 
BNE 
ERROR 

2S! RESET 
BIT 



;BR 



;NOW CLEAR IT 
jDID BIT03 CLEAR? 

IF YES 

;ERROR BIT03 OF TACS FAILED TO CLEAR 
TEST BIT03 OF TACS INITIALIZE TO ZERO 



«BIT03»§TACS 

«BIT03,PTACS 

TST31 

1 



#5,STIMES 
#BIT03,iTACS 
SBIT03,@TACS 
2$ 

1 



»BIT03,fTACS 



; ;D0 5 ITERATIONS 

J SET BIT03 OF TACS 

;DID BIT03 SET? 
;BR IF YES 

;BIT03 FAILED TO SET 

;CLEAR THE WORLD 

;DID 8IT03 CLEAR? 



TAll BASIC LOGIC TEST 

DETAACNEW T3i 



(PART 1) MAINDEC-ll-DZTAA-C MACYll 27(732) ll-JUN-76 15; 15 PAGE 25 

TEST BIT03 OF TACS INITIALIZE TO ZERO 



SEQ 0039 



1072 


004136 


001401 


1073 


004140 


104001 


107 4 






1075 






1076 






1077 


004142 


000004 


1078 


004144 


052714 


1079 


004150 


032714 


1080 


004154 


001001 


1081 


004156 


104001 


1082 






1083 


004160 


042714 


1084 


004164 


032714 


1085 


004170 


001401 


1086 


004172 


104001 


1087 






1088 






1089 






1090 


004174 


000004 


1091 


004176 


012767 


1092 


004204 


012714 


1093 


004210 


032714 


1094 


004214 


001001 


1095 


004216 


104001 


1096 






1097 


004220 


000005 


1098 


004222 


032714 


1099 


004226 


001401 


1 100 


004230 


104001 


1101 






1102 






1103 






1 104 


004232 


000004 


1105 


004234 


052714 


1 106 


004240 


032714 


1107. 


004244 


001001 


1108 


004246 


104001 


1109 






1110 


004250 


042714 


nil 


004254 


032714 


1112 


004260 


001401 


1113 


004262 


104001 


1114 






1115 






1116 






1117 


004264 


000004 


1118 


004266 


012767 


1119 


004274 


012714 


1120 


004300 


032714 


1121 


004304 


001001 


1122 


004306 


104001 


1123 






1124 


004310 


000005 


1 125 


004312 


032714 


1126 


004316 


001401 


1127 


004320 


104001 



000005 174762 



BEQ TST32 j >BR IF YES 

ERROR 1 ;ERROR RESET DIDN'T CLEAR BIT03 

;*TEST 32 TEST BIT02 OF TACS MAY BE "SET" AND "CLEARED" 

TST32: SCOPE 

BIS #BIT02,§TACS ;SET BIT02 OF TACS 

BIT «BIT02»0TACS ;DID BIT02 SET? 

BNE IS iBR IF YES 

ERROR 1 ;BIT02 FAILED TO SET 

is: BIC 8BIT02#0TACS ;NOW CLEAR IT 

BIT #BIT02#fTACS ;DID BIT02 CLEAR? 

BEQ TST33 ; ;BR IF YES 

ERROR 1 f ERROR -- BIT02 OF TACS FAILED TO CLEAR 

•TEST 33 TEST BIT02 OF TACS INITIALIZE TO ZERO 
} 

TST33; SCOPE 

MOV »5,$TIMES ; ;D0 5 

IS: MOV #BIT02,iTACS 

BIT »BIT02» @TACS 

BNE 2S 

ERROR 1 



ITERATIONS 
;SET BIT02 OF TACS 
;DID BIT02 SET? 
;BR IF YES 

;BIT02 FAILED TO SET 



000002 

000002 



000002 
000002 



000005 

000002 
000002 



2$: RESET JCLEAR THE WORLD 

BIT »BIT02r PTACS ;DID BIT02 CLEAR? 

BEQ TST34 ; ;BK IF YES 

ERROR 1 ; ERROR RESET DIDN'T CLEAR BIT02 

;»TEST 34 TEST BIT01 OF TACS MAY BE "SET" AND "CLEARED" 

• s 

TST34: SCOPE 

BIS #BIT01,eTACS ;SET BIT01 OF TACS 

BIT #BIT01,0TACS ;DID BIT01 SET? 

BNE IS ;BR IF YES 

ERROR 1 ;BIT01 FAILED TO SET 



is: 



BIC 
BIT 

BEQ 
ERROR 



#BIT01r0TACS -NOW CLEAR IT 

»BIT01,faTACS ;DID BIT01 CLEAR? 

TST35 If BR IF YES 

1 ; ERROR BIT01 OF TACS FAILED TO CLEAR 

TEST BIT01 OF TACS INITIALIZE TO ZERO 



SCOPE 

MOV 

MOV 

BIT 

BNE 

ERROR 

RESET 
BIT 
BEQ 
ERROR 



»5rSTIMES 
#BIT01 ,0TACS 
«BIT01,PTACS 

2S 
1 



«BIT01,PTACS 
TST36 

1 



; ;D0 5 ITERATIONS 

;SET BIT01 OF TACS 
;DID BIT01 SET? 
;8R IF YES 

JBIT01 FAILED TO SET 

;CLEAR THE WORLD 
JDID B1T01 CLEAR? 
; ;BR IF YES 

TERROR RESET DIDN'T CLEAR BIT01 



TAll BASIC LOGIC TEST (PART 1 ) H A INDEC - 1 1 -DZTAA -C 
DZTAAC.NEW T3b COUNT PATTERN TO TACS<04|01> 



MACYll 27(732) 1 l-JUN-76 15:15 PAGE 26 



1128 








1129 








1 130 








1131 


004322 


000004 




1132 


004324 


012767 


004370 174636 


1133 


004332 


005014 




11 34 


004334 


005000 




1 ! 35 


004336 


012702 


000002 


1136 


004342 


01 1401 




1137 


004344 


042701 


177741 


1 138 


004350 


020100 




1139 


004352 


001401 




1140 


004354 


104005 




1141 


004356 


060200 




1142 


004360 


06021 4 




1143 


004362 


032700 


000036 


1144 


004366 


001 365 




1145 









COUNT PATTERN TO TACS<04:01> 



SCOPE 






MOV 


#TST37,SESCAPE 


; ;ESCAPE TO TEST 37 ON ERROR 


CLR 


9TACS 


J SETUP TACS FOR COUNTING 


CLR 


R0 


; SETUP R0 FOR COUNTING 


MOV 


#2,R2 


;SET THE INCREMENT 


MOV 


§TACS,R1 


;GET TACS 


BIC 


#*C36,R1 


jCLEAR THE JUNK 


CMP 


R1,R0 


jCOUNT OK? 


BEQ 


2S 


;BR IF YES 


ERROR 


5 


•ERROR"-BAD COUNT 


ADD 


R2,R0 


jUPDATE R0 


ADD 


R2»?TACS 


jCOUNT TACS 


BIT 


#36, R0 


; READY? 


BNE 


IS 


;NO--GO DO TEST COUNT PATTERN 



TAtl BASIC LOGIC TEST (PART t) MAINDEC-1 1 »DZTAA«C 
DZTAAC.NEW T36 COUNT PATTERN TO TACS<04!01> 
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SEQ 0041 



1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 



004370 
004372 



012767 004404 174506 



J////////////////////////////////////////////////////////////////////// 

;////////////////////////////////////////////////////////////////////// 

|THE FOLLOWING TESTS WILL CHECK THE INITIAL STATE OF ALL BITS 

;IN THE TAGS THAT ARE DRIVE AND FUNCTION DEPENDENT, 

;NOTE: FOR ALL OF THESE TEST TO PASS 

;THE DRIVE UNDERGOING TEST MUST BE 

;0N CLEAR LEADER AND WRITE ENABLED, 

;////////////////////////////////////////////////////////////////////// 
;*TEST 37 TEST INITIAL CONDITION OF TAGS BIT05 = 1 

TST37: SCOPE 

«1$, SLPADR ; ?SET SCOPE LOOP ADDRESS 



004402 
004404 
004410 
004412 



004414 

004416 
004424 
004426 
004430 
004434 
004436 



010314 

032714 000040 



1$! 



MOV 
RESET 
MOV 
BIT 
BNE 
ERROR 



012767 004430 174462 



{SELECT DRIVE 
;IS BIT05 OF TAGS = 1? 
|BR IF YES 

; ERROR BIT05 OF TAGS DIDN'T INITIALIZE PROPER 

• *«»*«*#*»#*«#%»*«»#*»-»**#*««»«. i4.«# 

♦TEST 40 TEST INITIAL CONDITION OF TAGS BIT09 = 

TST40! SCOPE 

SET SCOPE LOOP ADDRESS 



010314 
032714 
001401 
104001 



1$ 



MOV 
RESET 
MOV 
BIT 
BEQ 
ERROR 



DRIVE, 3TACS 
#BIT05, (STAGS 
TST40 
1 



#1$» SLPADR 



DRIVE, PTAGS 

|BIT09,?TACS 

TST41 

I 



0? 



1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1 199 
1200 
1201 



J SELECT DRIVE 
;IS BIT09 OF TAGS = 
fBR IF YES 

;ERROR -- BIT09 OF TAGS DIDN'T INITIALIZE PROPER 
J 

♦TEST 41 TEST INITIAL CONDITION OF TAGS BIT12 = 



INITIALIZE PROPER 



1177 


004440 


000004 




TST41 : 


SCOPE 






1178 


004442 


012767 


004460 


174436 


MOV 


#IS,SLPADR 


; ;SET SCOPE LOOP ADDRESS 


1179 


004450 


000005 






RESET 






1180 


004452 


010314 






MOV 


DRIVE, STAGS 


jSELECT DRIVE 


1181 


004454 


052714 


000002 




BIS 


#WPITE,?TAGS 


jLOAD WRITE FUNCTION 


1182 


004460 


032714 


010000 


IS 5 


BIT 


#BIT12, STAGS 


; Is BIT12 OF TAGS = 0? 


1183 


004464 


001401 






BEQ 


TST42 


; ;BR IF YES 


1184 


004466 


104001 






ERROR 


1 


jERROR »- BIT12 OF TAGS 



{♦TEST 42 TEST INITIAL CONDITION OF TAGS BIT13 s I 



004472 
004500 
004502 
004504 
004510 
004512 



004514 
004516 
004524 
004526 



012767 004504 174406 



010314 
032714 
001001 
104001 



ISS 



SCOPE 
MOV 
RESET 
MOV 
BIT 
BNE 
ERROR 



«1$, SLPADR 



;SET SCOPE LOOP ADDRESS 



012767 
000005 
010314 



004530 174362 



DRIVE, STAGS {SELECT DRIVE 

»B1T13, STAGS ; IS BIT13 OF TAGS = 1? 

TST43 ; ;BR IF YES 

1 ; ERROR BIT13 OF TAGS DIDN'T INITIALIZE PROPER 

♦TEST 43 TEST INITIAL CONDITION OF TAGS BIT15 = 1 

TST43: SCOPE 

MOV «1$, SLPADR ; 'SET SCOPE LOOP ADDRESS 

RESET 

MOV DRIVE, STAGS {SELECT DRIVE 
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DZTAACNEW 143 TEST INITIAL CONDITION OF TAGS BIT15 = 1 

1202 004530 032714 100000 1$: BIT IBIT15, STAGS {IS BIT15 OF TAGS = 1? 

1203 004534 001001 BNE TST44 { {BR IF YES 

1204 004536 104001 ERROR 1 {ERROR BIT15 OF TAGS DIDN'T INITIALIZE PROPER 



TAll BASIC LOGIC TEST (PART I) MAINDEC-1 1-DZTAA-C MACYil 27(732) ll-JUN-76 15x15 PAGE 29 

DZTAAC.NEW T43 TEST INITIAL CONDITION OF TACS BIT15 = 1 



SEQ 0043 



1205 






1 206 












1 208 












1210 






1211 


















1 Ol A 






1 oil 










00000 4 


1 O T 


A C A O 


012767 


1218 


004550 


000005 


1219 


004552 


011 400 


loo? 


iCta A C C A 


1 000 1 


1 oo\ 


004556 


005 101 






a A o T oia 


1 oo a 


1010 4 30 4 


^ If! 


1 OOA 


01 ji A t; o M 

BIO 4 3 / W 


010114 


1 OOK 






1 OOA 


OlSI A C A 
004 3 / 4 


042701 


1 OOT 


W(04D10lO 




1 ooa 


CIA A A o 




1 OOQ 


l£71O4Ol04 


1 {A A{A(X 1 


1 aw 






1 o a 1 






1 O lO 






1 oa a 






12 3 4 






^ o a^ 








004606 


000004 


12 37 


0046 1 






004616 




1 oao 

1 O 




all Adi^ 
(71 1 4 lo 10 


1 oil 


00462 2 


a 1 afAn i 
1 (owe 1 




Gl£>l A ^ O A 


OiOkK i Ml 
10 103 i 10 I 


1 OdO 


MM A A OA 
Oiy 40 *0 


CI A o 7 Ota 

10 4 / / iOlO 


1 Od a 




01 A o o a 1 

10 4 Z / lO i 


« Odd 


lAuldA a A 
f/io D J D 


a 1 01 1 1 A 
lo I so I 1 'i 


1 O 


MCI A A AiTi 
»ly ^ D 4t/ 




1 Odfi 


A A A O 
1010 40 4 Z 


042701 


i OAT 


A A. A A 
B lo 4o 40 


wwlo 1 


t O AQ 


lo (o 4 D a 17 


1 Aa i 
av 1 4i3 1 


1 O AQ 


IXt^l A A C O 


1 a A'JilX i 

1 (04 WW I 


1 OKa 






1 oc 1 






1252 






125 3 






1254 






1255 






1256 


004654 


000004 


1257 


004656 


012767 


1258 


004664 


000005 


1259 


004666 


01 1400 


1260 


004670 


010001 



t ////////////////////////////////////////////////////////////////////// 
J////////////////////////////////////////////////////////////////////// 

;THE FOLLOWING TESTS CHECKS EACH READ ONLY 
;BIT OF THE TACS FOR READ ONLY CAPABILITY 

;////////////////////////////////////////////////////////////////////// 

• ; »»«'»»»«*»*«»»»»»»*»»*»»»»*»**»»»»»-»»»»*«**»'»»»«^»»**»»#*#*»*»»«» 
;THIS TEST WILL TRY TO CHANGE THE STATE OF BIT15. 
J THEN CHECK IT TO SEE IF IT CHANGED, 



?*TEST 44 



TEST TACS BIT15 IS READ ONLY 



077777 
077777 



SCOPE 










HOV 


«1S,SLPADR 




; ;SET 


SCOPE LOOP ADDRESS 


RESET 








• INITIALIZE ALL BITS 


MOV 


§TACS#R0 






;GET TACS FOR COMPARING 


MOV 


R0rRi 






;PUT STATUS IN Rl 


COM 


Rl 






{COMPLEMENT Rl 


BIC 


»*C<BIT15> 


R0 




jGET RID OF UNDESIRED BITS 


BIC 


#-C<BIT15> 


Rl 






MOV 


R1,PTACS 






;TRY TO CHANGE BIT15 


MOV 


gTACSfRl 






jREAD IT BACK 


BIC 


#"C<BIT15> 


Rl 




;ONLY LOOK AT BIT15 


CMP 


R0»R1 






;DID IT CHANGE? 


BEQ 


TST45 




? JBR 


IF NO 


ERROR 


1 






; ERROR — BIT15 CHANGED 



;THIS TEST WILL TRY TO CHANGE THE STATE OF BIT14. 
•THEN CHECK IT TO SEE IF IT CHANGED, 

y»TEST 45 TEST TACS BIT14 IS READ ONLY 

• J **»»^ 
TST45! 



004620 174270 



137777 
137777 



SCOPE 








MOV 


mS^SLPADR 




j;SET SCOPE LOOP ADDRESS 


RESET 






; INITIALIZE ALL BITS 


MOV 


eTACS»R0 




;GET TACS FOR COMPARING 


MOV 


R0»RI 




; PUT STATUS IN Rl 


COM 


Rl 




{COMPLEMENT Rl 


BIC 


»"C<BIT14> 


R0 


;GET PID OF UNDESIRED BITS 


BIC 


#*C<BIT14> 


Rl 




MOV 


Rlf (3TACS 




JTRY TO CHANGE B1T14 


MOV 


9TACS,R1 




jREAD IT BACK 


BIC 


»-C<8IT14>, 


Rl 


jONLY LOOK AT BIT14 


CMP 


R0,R1 




;DID IT CHANGE? 


BEQ 


TST46 




IJBR IF NO 


ERROR 






jERROR BIT14 CHANGED 



004666 174222 



jTHIS TEST WILL TRY TO CHANGE THE STATE OF BIT13. 
; THEN CHECK IT TO SEE IF IT CHANGED. 

• I 

;*TEST 46 TEST TACS BIT13 IS READ ONLY 

J ; **#»*«»«-»#»««'«'»» 

TST46J SCOPE 

MOV #1S»$LPADR jjSET SCOPE LOOP ADDRESS 

RESET ; INITIALIZE ALL BITS 

IS: MOV PTACS,R0 ;GET TACS FOR COMPARING 

MOV R0rRl ;PUT STATUS IN Rl 
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ZTAAC.NEW 


T46 


TEST TACS BITl 3 IS READ 


ONLY 






1261 


004672 


005101 






COM 


PI 


{COMPLEMENT Rl 


1262 


004674 


042700 


157777 




BIC 


#*C<BIT13>,R0 


{GET RID OF UNDESIRED BITS 


1263 


004700 


042701 


157777 




BIC 


»*C<BIT13>,R1 




1264 


004704 


010114 






MOV 


R1,9TACS 


{TRY TO CHANGE BIT13 


1265 


004706 


011401 






MOV 


§TACSf Rl 


{READ IT BACK 


1266 


004710 


042701 


157777 




BIC 


#~C<BIT13>,R1 


{ONLY LOOK AT BIT13 


1267 


004714 


020001 






CMP 


R0#R1 


{DID IT CHANGE? 


1268 


004716 


001401 






BEQ 


TST47 


{ {BR IF NO 


1269 


004720 


104001 






ERROR 


1 


{ERROR BIT13 CHANGED 


1270 










1271 










;THIS 


TEST WILL TRY TO 


CHANGE THE STATE OF BIT12. 


1272 










jTHEN 


CHECK IT TO SEE 


IF IT CHANGED, 


1273 










1274 








J«TEST 


47 


TEST TACS BIT12 IS READ ONLY 


1275 








• 1 ^}»»»»«»»««»»»«»»«»»»**»«»«'«»*»» 


1276 


004722 


000004 




TST47: 


SCOPE 






1277 


004724 


012767 


004734 


174154 


MOV 


SlSf SLPADR 


{{SET SCOPE LOOP ADDRESS 


1278 


004732 


000005 






RESET 




{INITIALIZE ALL BITS 


1279 


004734 


01 1400 




is: 


MOV 


@TACS,R0 


{GET TACS FOR COMPARING 


1280 


004736 


010001 






MOV 


R0,Ri 


{PUT STATUS IN Rl 


1281 


004740 


005101 






COM 


Rl 


{COMPLEMENT Rl 


1282 


004742 


042700 


167777 




BIC 


»*C<BIT12>,R0 


{GET RID OF UNDESIRED BITS 


1283 


004746 


042701 


167777 




BIC 


#*C<BIT12>»R1 




1284 


004752 


0101 14 






MOV 


R1»?TACS 


{TRY TO CHANGE B1T12 


1285 


004754 


011401 






MOV 


gTACS,Rl 


{READ IT BACK 


1286 


004756 


042701 


167777 




BIC 


#*C<BIT12>,R1 


{ONLY LOOK AT BIT12 


1287 


004762 


020001 






CMP 


R0,R1 


{DID IT CHANGE? 


1288 


004764 


001401 






BEQ 


TST50 


{ {BR IF NO 


1289 


004766 


104001 






ERROR 


I 


{ERROR BIT12 CHANGED 


1290 
















1291 










JTHIS 


TEST WILL TRY TO 


CHANGE THE STATE OF BITI 1 . 


1292 










;THEN 


CHECK IT TO SEE 


IF IT CHANGED, 


1293 










1294 








r«TEST 


50 


TEST TACS BITll IS READ ONLY 


1295 








J ; 


1296 


004770 


000004 




TST505 


SCOPE 






1297 


004772 


012767 


005002 


174106 


MOV 


#lSf SLPADR 


{ {SET SCOPE LOOP ADDRESS 


1298 


005000 


000005 






RESET 




{ INITIALIZE ALL BITS 


1299 


005002 


011400 




iss 


MOV 


?TACS,R0 


{GET TACS FOR COMPARING 


1300 


035004 


010001 






MOV 


R0,R1 


{PUT STATUS IN Rl 


1301 


005006 


005101 






COM 


Rl 


{COMPLEMENT Rl 


1302 


005010 


042700 


173777 




BIC 


«"C<BIT11>,R0 


{GET RID OF UNDESIRED BITS 


1303 


005014 


042701 


173777 




BIC 


#*C<BITll>rRl 




1 304 


005020 


010114 






MOV 


RlrPTACS 


{TRY TO CHANGE BITll 


1305 


005022 


011401 






MOV 


ITACSfRl 


{READ IT BACK 


1306 


005024 


042701 


173777 




BIC 


#-C<BITll>,Rl 


{ONLY LOOK AT BITll 


1307 


005030 


020001 






CMP 


R0,R1 


{DID IT CHANGE? 


1308 


005032 


001401 






BEQ 


TST51 


{{BR IF NO 


1309 


005034 


104001 






ERROR 


1 


{ERROR BITll CHANGED 



1310 { I »*»»®®»»«»®»«*»»«»»*»'»»«»«»»«»««»»®^*»«-»»«»#*»»*«»»»»#*«-»»»#«*»«^ 

1311 {THIS TEST WILL TRY TO CHANGE THE STATE OF BIT10. 

1312 {THEN CHECK IT TO SEE IF IT CHANGED, 

1313 • {»*»*«•»»»»««#»*»»#»««»»#»*»«■»««»*»»»«»»»»*•»»&«•»»»*»»■»«.•»»■»*«■««•«•»« 

1314 {*TEST 51 TEST TACS BIT10 IS READ ONLY 

1315 { { »*««»«#«»»»«»*»»»*»»»»»»*«««»-»«'»»*»»»«»»»»«'«''»»#»«»***##»#«^#»»»# 

1316 005036 000004 TST51 : SCOPE 



TftU BASIC LOGIC TEST (PART 1) MAINDEC"! 1 "DETAA^C 
DZTAAC.NEW T51 TEST TACS BIT10 IS READ ONLY 
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SEQ 0045 



1317 


005040 


012767 


005050 


1 7 4040 


MOV 


S 1 S » SLPADR 


; ; SET SCOPE LOOP ADDRESS 


1318 


005046 


000005 






RESET 




; INITIALIZE ALL BITS 


1319 


005050 


01 1400 






1 $ : MOV 


§TACS» R0 


; GET TACS FOR COMPARING 


1 320 


005052 


010001 






MOV 


R0# Rl 


; PUT STATUS IN Rl 


1321 


005054 


005101 






COM 


Rl 


;COMPLEMENT Rl 


1322 


005056 


042700 


175777 




BIC 


#*C<BIT10>/ R0 


; GET RID OF UNDESIRED BITS 


132 3 


005062 


042701 


175777 




BIC 


#"C<BIT10>,R1 




1324 


005066 


010114 






MOV 


R1,9TACS 


•TRY TO CHANGE BIT10 


1325 


005070 


011401 






MOV 


9TACS,R1 


;READ IT BACK 


1326 


005072 


042701 


175777 




BIC 


#"C<BIT10>f Rl 


jONLY LOOK AT BIT10 


1327 


005076 


020001 






CMP 


R0rRl 


;DID IT CHANGE? 


1328 


005100 


001401 






BEO 


TST52 


; ;BR IF NO 


1329 


005102 


104001 






ERROR 


1 


;ERROR — BIT10 CHANGED 


1330 












1 331 










ITHIS 


TEST WILL TRY TO 


CHANGE THE STATE OF BIT09, 


1332 










•THEN 


CHECK IT TO SEE 


IF IT CHANGED, 


1333 












1334 










;*TEST 52 


TEST TACS BIT09 IS READ ONLY 


I 335 












1 336 


005104 


000004 






TST52: SCOPE 






1337 


005106 


012767 


0051 16 


173772 


MOV 


#1$, SLPADR 


; )SET SCOPE LOOP ADDRESS 


1338 


0051 14 


000005 






RESET 




^INITIALIZE ALL BITS 


1339 


0051 16 


011 400 






is: MOV 


PTACS,R0 


;GET TACS FOR COMPARING 


1340 


0051 20 


010001 






MOV 


P0f Rl 


jPUT STATUS IN Rl 


1341 


005122 


005101 






COM 


Rl 


^COMPLEMENT Rl 


13 42 


005 12 4 




176777 




BIC 


«*C<aiT09>,R0 


;GET RID OF UNDESIRED BITS 


1343 


0051 30 


042701 


176777 




BIC 


#*C<BIT09>,R1 




1344 


005 134 


010114 






MOV 


RlrPTACS 


;TRY TO CHANGE BIT09 


1345 


005 1 36 


011401 






MOV 


&TACS#R1 


jREAD IT BACK 


1346 


005 1 40 


042701 


176777 




BIC 


#*C<BIT09>,R1 


jONLY LOOK AT BIT09 


1347 


005 144 


020001 






CMP 


R0,R1 


;DID IT CHANGE? 


I 348 


005 1 46 


001401 






BEQ 


TST53 


; ;BR IF NO 


1 349 


005150 


104001 






ERROR 


1 


lERROR BIT09 CHANGED 


i 350 












1351 










JITHIS 


TEST WILL TRY TO 


CHANGE THE STATE OF BIT07. 


I 352 










;THEN 


CHECK IT TO SEE 


IF IT CHANGED, 


1 353 










• 1 


1354 










l*TEST 53 


TEST TACS BIT07 IS READ ONLY 


1 355 










; i »♦»»♦♦♦»«»♦**♦♦»♦*»#*♦»•»»»»» 




1356 


005 152 


000004 






TST53: SCOPE 






I 357 


005154 


012767 


005164 


173724 


MOV 


»1$, SLPADR 


; ;SET SCOPE LOOP ADDRESS 


1 358 


005162 


000005 






RESET 




; INITIALIZE ALL BITS 


i 359 


005164 


01 1400 






is: MOV 


?TACS,R0 


;GET TACS FOR COMPARING 


1 360 


005 166 


010001 






MOV 


R0,R1 


;PUT STATUS IN Rl 


1 361 


005170 


005101 






COM 


Rl 


ICOMPLEMENT Rl 


1 362 


005 172 


042700 


177577 




BIC 


»"C<BIT07>,R0 


jGET RID OF UNDESIRED BITS 


1 363 


005176 


042701 


177577 




BIC 


#-C<BIT07>,Rl 




1364 


005202 


010114 






MOV 


Pl/iaTACS 


;TRY TO CHANGE BIT07 












MOV 


@TACS,R1 


jREAD IT BACK 


1366 


005206 


042701 


177577 




BIC 


#*C<BIT07>/ Rl 


;ONLY LOOK AT BIT07 


1367 


005212 


020001 






CMP 


R0,R1 


:DID IT CHANGE? 


1368 


005214 


001401 






BEQ 


TST54 


J ;BR IF NO 


1369 


005216 


104001 






ERROR 


1 


;ERROR BIT07 CHANGED 


1370 












1371 










;THIS 


TEST WILL TRY TO 


CHANGE THE STATE OF BIT05, 


1372 










{THEN 


CHECK IT TO SEE 


IF IT CHANGED. 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 1 -DZTAA-C 
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1373 










1374 








?®TEST 


54 


TEST TACS BIT05 


IS READ 


ONLY 


1375 








■ • ««««« 




1376 


005220 


000004 




TST54: 


SCOPE 








1377 


005222 


012767 


005232 173656 




MOV 


•ISrSLPADP 


; ;SET SCOPE LOOP ADDRESS 


1 378 


005230 


000005 






RESET 






; INITIALIZE ALL BITS 


1379 


005232 


011400 




1$: 


MOV 


PTACS»R0 




;GET TACS FOR COMPARING 


1380 


005234 


010001 






MOV 


R0,R1 




;PUT STATUS IN Rl 


1381 


005236 


005101 






COM 


Rl 




iCOMPLEMENT Rl 


1382 


005240 


042700 


177737 




BIC 


»*C<8IT05>,R0 




;GET RID OF UNDESIRED BITS 


1383 


005244 


042701 


177737 




BIC 


#*C<8IT05>,R1 






1384 


005250 


010114 






MOV 


RlrtTACS 




JTRY TO CHANGE BIT05 


1385 


005252 


011401 






MOV 


§TACS,R1 




JREAD IT BACK 


1386 


005254 


042701 


177737 




BIC 


I*C<BIT05>,R1 




jONLY LOOK AT BIT05 


1387 


005260 


020001 






CMP 


R0,R1 




;DID IT CHANGE? 


1388 


005262 


001401 






BEQ 


TST55 


; ;BR IF 


NO 


1389 


005264 


104001 






ERROR 


1 




jERROR BIT05 CHANGED 


1390 



















TAll BASIC LOGIC TEST (PART i) MAINDEC"U «D2TAA»C 
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SEQ 0047 



1391 










f ////////////////////////////////////////////////////////////////////// 


1 392 










J ////////////////////////////////////////////////////////////////////// 


I 393 










jTHE FOLLOWING 


TESTS WILL CHECK FOR DUAL AND/OR FAULTY SELECTION 


I 394 










;0F THE 


TAll ADDRESSES 


1395 










}////////////////////////////////////////////////////////////////////// 


1396 










t • 


1397 










j*TEST 


55 


TEST HIGH BYTE SELECTION OF TACS 


1398 










! »«'»»*«»#»#»*»**«»-»»«#»'»-»-»«^»#««'»***»««'#»##«'»« 


1 399 


005266 


000004 






TST55S 


SCOPE 




1400 


005270 


012767 


005300 


173610 




MOV 


#1$,$LPADR ; JSET SCOPE LOOP ADDRESS 


1401 


005276 


000005 








RESET 




1402 


005300 


012714 


000004 




l$i 


MOV 


SBIT02»3TACS jSET TACS BIT02 


1403 


005304 


105077 


173700 






CLRB 


fTACSH jCLEAR THE HIGH BYTE 


1404 


005310 


1 32714 


000004 






BITB 


SBIT02,eTACS ; IS BIT02 STILL SET? 


1405 


005314 


001001 








BNE 


TST56 ; ;BR IF YES 


1406 


005316 


104001 








ERROR 


1 ;CLRB TO HIGH BYTE OF TACS CLEARED LOW BYTE 


1 407 










f ! »-»««*«'*»#*««#*#«##*«*»»-»*»««'*»»»»#*#«**»«»'»'»»» 


1408 










;*TEST 


56 


TEST LOW BYTE SELECTION OF TACS 


1409 










? 




1410. 


005320 


000004 






TST56: 


SCOPE 




1411 


005322 


012767 


005332 


173556 




MOV 


»1$,$LPADR IJSET SCOPE LOOP ADDRESS 


1412 


005330 


000005 








RESET 




1413 


005332 


012714 


000400 




1$: 


MOV 


#BIT08»0TACS JSET BIT08 OF TACS 


1414 


005336 


105014 








CLRB 


PTACS ;CLEAR THE LOW BYTE OF TACS 


1415 


005340 


1 32777 


000001 


173642 




BITB 


#BIT00,9TACSH JIS BIT08 OF TACS STILL SET? 


1416 


005346 


001001 








BNE 


TST57 II BR IF YES 


1417 


005350 


104001 








ERROR 


1 iCLRB TO LOW BYTE OF TACS CLEARED THE HIGH BYTE 


1418 










• »#•»#« «^«»«-»»##® 


1419 










?*TEST 


57 


TEST "OUT LOW" SIGNAL 


1420 










t f 


1421 


005352 


000004 






TST57: 


SCOPE 




1422 


005354 


012767 


005412 


173606 




MOV 


«TST60,SESCAPE | {ESCAPE TO TEST 60 ON ERROR 


1423 


005362 


00501 4 








CLR 


&TACS 1 ZERO THE TAll STATUS 


1424 


005364 


032714 


000536 






BIT 


tf UN IT! INT.ENilLBSl FUNCTION, gTACS 


1425 


005370 


001401 








BEQ 


1$ 


1426 


005372 


104001 








ERROR 


1 I TACS DIDN'T CLEAR PROPERLY 


1 427 


005374 


112777 


000136 


173606 


Us 


MOVE 


8INT.EN1 ILBSiFUNCTION,0TACSH ;LOAD HIGH BYTE OF TACS 


1428 


005402 


032714 


0001 36 






BIT 


« INT, EN i ILBS: FUNCTION, 0TACS {CHECK LOW BYTE 


1 429 


005406 


001 401 








BEO 


TST60 I {BR IF LOW BYTE IS OK 


1430 


005410 


104001 








ERROR 


1 {LOW BYTE IMPROPERLY SELECTED 


1 431 












1432 










J»TEST 


60 


TEST "OUT HIGH" SIGNAL 


1433 














1434 


005412 


000004 






TST60: 


SCOPE 




1435 


00541 4 


012767 


005450 


173546 




MOV 


«TST61f SESCAPE { {ESCAPE TO TEST 61 ON ERROR 


1436 


005422 


00501 4 








CLR 


gTACS { ZERO THE TAll STATUS 


143 7 


005424 


032714 


000536 






BIT 


# UN III INT, EN ULBSI FUNCTION, 9TACS 


1438 


005430 


001401 








BEQ 


IS 


1 439 


005432 


104001 








ERROR 


1 {TACS DIDN'T CLEAR PROPERLY 


1440 


005434 


1 12714 


000400 




IS: 


MOVB 


»BIT08/ @TACS {LOAD LOW BYTE OF TACS 


1441 


005440 


032714 


000400 






BIT 


»BIT08, PTACS {DID BIT08 GET SET? 


1 442 


005444 


001401 








BEQ 


TST61 } {BR IF NO 


1443 


005446 


104001 








ERROR 


1 {HIGH BYTE IMPROPERLY SELECTED 


1444 












1445 










;»TEST 


61 


TEST "SELECT 00" ISN'T STUCK 


1446 















TAll BASIC LOGIC TEST (PART 1 ) MAINDEC-1 1 -DZTAA-C 

TEST "SELECT 00" ISN'T STUCK 



ZTAAC . 


NEW 


T6I 


1447 


005450 


000004 


1448 


005452 


012767 


1 449 


005460 


005014 


1450 


005462 


032714 


1451 


005466 


001401 


1452 


005470 


104001 


1453 


005472 


012715 


1454 


005476 


032714 


1455 


005502 


001401 


1456 


005504 


104001 


1457 






1458 






1459 






1460 






1461 






1462 






1463 






1464 






1465 


005506 


000004 


1466 


005510 


010314 


1467 


005512 


032714 


1468 


005516 


001001 


1469 


005520 


104001 


1470 


005522 


112714 


1471 


005526 


005714 


1472 


005530 


100401 


1473 


005532 


104001 


1474 


005534 


1 12714 


1475 


005540 


005714 


1476 


005542 


100401 


1477 


005544 


104001 


1 478 


005546 


1 12714 


1479 


005552 


005714 


1480 


005554 


100401 


1481 


005556 


104001 


1482 


005560 


112714 


1483 


005564 


005714 


1484 


005566 


100401 


1485 


005570 


104001 


1486 


005572 


112714 


1487 


005576 


005714 


1488 


005600 


100401 


1489 


005602 


104001 


1490 


005604 


1 12714 


1491 


005610 


005714 


1492 


005612 


100401 


1493 


00561 4 


104001 


1494 


005616 


112714 


1495 


005622 


005714 


1496 


005624 


100401 


1497 


005626 


104001 


1498 


005630 


1 12714 


1499 


005634 


005714 


1500 


005636 


100001 


1501 


005640 


104001 



005506 173510 



177776 
000536 



SCOPE 

MOV 

CLR 

BIT 

BEQ 

ERROR 

MOV 

BIT 

BEQ 

ERROR 
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#TST62,SESCAPE | {ESCAPE TO TEST 62 ON ERROR 
&TACS {CLEAR TAll STATUS 

8UNIT! INT. EN" ILBS! FUNCTION, 0TACS 

IS 

1 {TACS DIDN'T CLEAR PROPERLY 

8*C1,PTADB {LOAD THE DATA BUFFER 

»UN IT i INT.ENl ILBSl FUNCTION, PTACS 

TST62 I {BR IF TACS DIDN'T CHANGE 

1 {TACS CHANGED WHEN LOADING TADB 



{THE FOLLOWING TEST INSURES THAT THE STATE OF THE "ERROR" INDICATOR IS 
{PROPER FOR ALL FUNCTIONS WHEN THE TAPE IS AT "CLEAR LEADER" 
• • 

{♦TEST 62 TEST "ERROR" FOR "CLEAR LEADER" 

TST62! 



SCOPE 










MOV 


DRIVE, 


iTACS 


SELECT DRIVE 




BIT 


lLEADER,gTACS 


CHECK FOR CLEAR LEADER 


BNE 


IS 




BR IF ON CLEAR LEADER 


ERROR 


1 




NOT ON CLEAR LEADER 


MOVB 


«WFG,@TACS 


CHECK "ERROR" WITH 


"WFG" 


TST 


9TACS 




SAMPLE THE "ERROR" 


BIT 


BMi 


2$ 




BR IF "ERROR" = 1 




ERROR 


1 




"ERROR" NOT = 1 . 




MOVB 


8WRITE 


,PTACS 


CHECK "ERROR" WITH 


"WRITE" 


TST 


iTACS 




SAMPLE THE "ERROR" 


BIT 


BMI 


3$ 




BR IF "ERROR" a 1 




ERROR 


1 




"ERROR" NOT = 1 




MOVB 


#READ, 


PTACS 


CHECK "ERROR" WITH 


"READ" 


TST 


PTACS 




SAMPLE THE "ERROR" 


BIT 


BMI 


4$ 




BR IF "ERROR" = 1 




ERROR 


1 




"ERROR" NOT = 1 




MOVB 


»BSFG, 


9TACS 


CHECK "ERROR" WITH 


"BSFG" 


TST 


iTACS 




SAMPLE THE "ERROR" 


BIT 


BMI 


5S 




BR IF "ERROR" s 1 




ERROR 


1 




"ERROR" NOT x 1 




MOVB 


iBSBGf 


§TACS 


CHECK "ERROR" WITH 


"BSBG" 


TST 


iTACS 




SAMPLE THE "ERROR" 


BIT 


BMI 


6S 




BR IF "ERROR" = 1 




ERROR 


1 




"ERROR" NOT s 1 




MOVB 


#SFFG, 


§TACS 


CHECK "ERROR" WITH 


"SFFG" 


TST 


gTACS 




SAMPLE THE "ERROR" 


BIT 


BMI 


7S 




BR IF "ERROR" = 1 




ERROR 


i 




"ERROR" NOT s 1 




MOVB 


#SFBG, 


§TACS 


CHECK "ERROR" WITH 


"SFBG" 


TST 


PTACS 




SAMPLE THE "ERROR" 


BIT 


BMI 


8$ 




BR IF "ERROR" = 1 




ERROR 


1 




"ERROR" NOT s 1 




HOVB 


8REWIND, eTACS 


CHECK "ERROR" WITH 


"REWIND" 


TST 


iTACS 




SAMPLE THE "ERROR" 


BIT 


BPL 


TST63 


{ {BR IF 


'ERROR" = 




ERROR 


1 




"ERROR" NOT = 
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SEQ 0049 



1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 



005642 
005644 
005652 
005660 
005662 
005670 
005672 
005674 
005700 
005704 
005710 
005712 
005714 
005716 
005720 
005722 
005726 
005730 
005732 
005736 
005740 



012767 
012767 
000005 
012767 
010314 
005001 
012700 
112714 
032714 
001010 
005201 
001373 
005300 
001371 
032714 
001001 
104001 
032714 



J////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
THE FOLLOWING TESTS WILL CHECK BASIC OPERATIONS OF THE 
"REWIND" AND "WRITE FILE GAP" FUNCTIONS, 

////////////////////////////////////////////////////////////////////// 
; 

»TEST 63 TEST THAT "READY" SETS WHEN "REWIND" IS COMPLETED 

; «•»««■■» 
TST63: 



173314 
173226 



005742 173300 



104001 



SCOPE 








MOV 


#5,STIMES 


?;D0 


5 ITERATIONS 


MOV 


83$f SLPADR 


; ;SET 


SCOPE LOOP ADDRESS 


RESET 








MOV 


«TST64rSESCAPE 


IIESCAPE TO TEST 64 ON ERROR 


MOV 


DRIVE, PTACS 




fSELECT DRIVE 


CLR 


Rl 




; WASTE SOME TIME 


MOV 


#100, ,R0 






MOVB 


#REWIND!GO,?TACS 




; START A REWIND 


BIT 


#READY,&TACS 




1 SAMPLE READY 


BNE 


2S 




;GET OUT IF READY IS SET 


INC 


Rl 






BNE 


1$ 






DEC 


R0 






BNE 


IS 






BIT 


«READY, 3TACS 




',IS "READY" BIT SET? 


BNE 


2$ 




;BR IF YES 


ERROR 


1 




;ERROR--"READY" BIT DIDN 


BIT 


#LEADER, PTACS 




jCHECK FOR CLEAR LEADER 


BNE 


TST64 


? J BR 


IF CLEAR LEADER NE 


ERROR 


1 




;NOT ON CLEAR LEADER 



;AFTER DOING A REWIND 



1533 










;*TEST 


64 


TEST THAT "READY" 


SETS WHEN "WRITE FILE GAP" IS COMPLETED 


1534 


















1535 


005742 


000004 






TST64S 


SCOPE 






1536 


005744 


012767 


000005 


173214 




MOV 


»5,STIMES ; 


jDO 5 ITERATIONS 


1537 


005752 


012767 


005770 


173126 




MOV 


#3SrSLPADR ; 


;SET SCOPE LOOP ADDRESS 


1538 


005760 


000005 








RESET 






1539 


005762 


012767 


006042 


173200 




MOV 


«TST65,SESCAPE ; 


JESCAPE fO TEST 65 ON ERROR 


1540 


005770 


010314 






3$; 


MOV 


DRIVE, @TACS 


;SELECT DRIVE 


1541 


005772 


005001 








CLR 


Rl 


J WASTE SOME TIME 


1542 


005774 


012700 


000144 






MOV 


»100,,R0 




1543 


006000 


112714 


000001 






MOVB 


#WFGiGO,@TACS 


; START A WFG 


1544 


006004 


032714 


000040 




ISS 


BIT 


SREADV,@TACS 


; SAMPLE READY 


1545 


006010 


001010 








BNE 


2S 


;GET OUT IF READY IS SET 


1546 


006012 


005201 








INC 


Rl 




1547 


006014 


001373 








BNE 


1$ 




1548 


006016 


005300 








DEC 


R0 




1549 


006020 


001371 








BNE 


IS 




1550 


006022 


032714 


000040 






BIT 


»READY,PTACS 


; IS "READY" BIT SET? 


1551 


006026 


001001 








BNE 


2$ 


;BR IF YES 


1552 


006030 


104001 








ERROR 


1 


;ERPOH--"READY" BIT DIDN'T SET 


1553 


006032 


032714 


020000 




2S! 


BIT 


|^LEADER,?TACS 


JCHECK FOR CLEAR LEADER 


1554 


006036 


001401 








BEQ 


TST65 1 


;BR IF CLEAR LEADER EG 


1555 


006040 


104001 








ERROR 


1 


;0N CLEAR LEADER 



1556 
1557 



; AFTER DOING A WRITE FILE GAP 
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DZTAAC.NEW 165 TEST "READY" CLEARS WHEN STARTING A "REWIND" FUNCTION 



1558 










;«TEST 


65 


TEST "READY" CLEARS 


WHEN STARTING A "REWIND" FUNCTION 


1559 












1560 


006042 


000004 






TST65 : 


SCOPE 






1561 


006044 


012767 


000005 


173114 




MOV 


85, STIMES J ;D0 


5 ITERATIONS 


1562 


006052 


000005 








RESET 






1563 


006054 


012701 


000001 






MOV 


«1,R1 


;SET TIMER 


1564 


006060 


010314 








MOV 


DRIVE, §TACS 


;SELECT DRIVE 


1565 


006062 


104412 








WAITREADY 


; WAIT FOR "READY" 


1566 


006064 


112714 


000017 






MOVB 


|REWIND!GO,0TACS 


jSTART A "REWIND" 


1567 


006070 


032714 


000040 




IS: 


BIT 


»READY, PTACS 


;CHECK "READY" BIT 


1568 


006074 


001403 








BEQ 


TST66 ; ;BR 


IF "READY" = 


1569 


006076 


006301 








ASL 


Rl 


; IS TIME UP? 


1570 


006100 


001373 








BNE 


IS 


;BR IF NO 


1571 


006102 


104001 








ERROR 


1 


; "READY" FAILED TO CLEAR 


1572 












1573 










;»TEST 


66 


TEST "READY" CLEARS 


WHEN STARTING A "WRITE FILE GAP" FUNCTION 


1574 












1575 


006104 


000004 






TST66: 


SCOPE 






1576 


006106 


012767 


000005 


173052 




MOV 


#5, STIMES ; ;D0 


5 ITERATIONS 


1577 


006114 


000005 








RESET 






1578 


006116 


012701 


000001 






MOV 


SI ,R1 


;SET TIMER 


1579 


006122 


010314 








MOV 


DRIVE, eTACS 


; SELECT DRIVE 


1580 


006124 


104412 








WAITREADY 


; WAIT FOR "READY" 


1581 


006126 


112714 


000001 






MOVB 


»WFG1G0,&TAC5 


; START A "WRITE FILE GAP" 


1582 


006132 


032714 


000040 




is: 


BIT 


SREADY, PTACS 


yCHECK "READY" BIT 


1583 


006136 


001403 








BEG 


TST67 ;jBR 


IF "READY" = 


1584 


006140 


006301 








ASL 


Rl 


; IS TIME UP? 


1585 


006142 


001373 








BNE 


IS 


;BR IF NO 


1586 


006144 


104001 








ERROR 




; "READY" FAILED TO CLEAR 


1587 












1588 










;«TEST 


67 


TEST THAT "RESET" CANNOT ABORT A "REWIND" 


1589 












1590 


006146 


000004 






TST67: 


SCOPE 






1591 


006150 


012767 


000001 


173010 




MOV 


#1, STIMES ; ;D0 


1 ITERATION 


1592 


006156 


012767 


006234 


173004 




MOV 


«5$,$ESCAPE ; ;ESCAPE TO 5S ON ERROR 


1593 


006164 


000005 








RESET 






1594 


006166 


010314 








MOV 


DRIVE, iTACS 


JSELECT DRIVE 


1595 


006170 


104412 








WAITREADY 


;G0 WAIT FOR "READY" TO SET 


1596 


006172 


1 12714 


000017 






MOVB 


#REW1NDIG0, PTACS 


jLOAD REWIND AND GO 


1597 


006176 


005067 


000010 






CLR 


3S 




1598 


006202 


032714 


000040 




2S: 


BIT 


SREADY,PTACS 


;WAIT FOR READY TO CLEAR 


1599 


006206 


001404 








BEQ 


4S 




1600 


006210 


105227 








INCB 


(PC) + 




1601 


006212 


000000 






3$: 









1602 


006214 


001372 








BNE 


2S 




1603 


006216 


104001 








ERROR 


1 


; "READY" FAILED TO CLEAR 


1604 


006220 


000005 






4S: 


RESET 




;TRY TO STOP REWIND 


1605 


006222 


050314 








BIS 


DRIVE, PTACS 


; SELECT DRIVE 


1606 


006224 


032714 


000040 






BIT 


«READY,?TACS 


; IS READY SET? 


1607 


006230 


001401 








BEQ 


5$ 


;BR IF NO 


1608 


006232 


104001 








ERROR 


1 


; "READY" WAS SET 


1609 


006234 


104412 






5SI 


WAITREADY 


JWAIT ON READY TO SET 


1610 












1611 










jTHIS TEST WILL 


START A "WRITE FILE 


GAP" AND WAIT FOR "READY" TO CLEAR 


1612 










;AS SOON AS "READY" CLEARS A "RESET" 


IS PERFORMED (WHICH SHOULD 


1613 










jCLEAR 


THE FUNCTION AND SET READY) THEN "READY" IS EXAMINED 
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DETAAC.NEW T67 TEST THAT "RESET" CANNOT ABORT A "REWIND" 



SEQ 0051 



1614 










;T0 INSURE THAT IT IS SET 
















1 A1 A 










;»TEST 


70 


TEST "RESET" WILL ABORT A "WRITE FILE GAP" 


1 7 














1618 


vtjO C .3 


VVVfJV *t 






TST70 ! 


SCOPE 






: 


vvXi i. 'iV 






. _ _ 




MOV 


»5,STIMES ;;D0 5 ITERATIONS 




aaA*? AA 


Mi 77ft7 


an A o A A 






MOV 


SlSfSLPADR ;jSET SCOPE LOOP ADDRESS 






01 2767 


006332 


1 72706 




MOV 


#TST71,SESCAPE jjESCAPE 


TO TEST 71 ON ERROR 




n iSI A O A O 


19 Kilo K/ 103 








RESET 








Ch(A(\ OA A 








1 S I 


MOV 


DRIVE, @TACS 


SELECT DRIVE 




006266 










WAITREADY 


WAIT ON READY 


1 625 


MCI A O 701 


J 12714 


1010101010 1 






MOVB 


#WFGiGO,§TACS 


START A WRITE FILE GAP FUNCTION 


1 fi^fi 






10101010 a 10 






CLR 


3$ 




1627 






CICtClfTl Aci 
10 10 10 Wt 10 




2$: 


BIT 


#READY,PTACS 


WAIT FOR READY TO CLEAR 






(AiAi A CI A 








BEQ 


4S 


BR IF "READY" = 


i *,OQ 


006 306 










INCB 


(PC)* 


WASTE SOME TIME 


1 Aaa 
. ^ ,7 


006 310 


19 10 117 10 10 1? 






3$: 









16 31 


006 312 


001 372 








BNE 


2S 




1632 


006314 


1 ACIC1 1 
1 X/Hvxf I 








ERROR 


1 


"READY" FAILED TO CLEAR 


1633 


006316 


000005 






4$: 


RESET 




KILL WRITE FILE GAP 


1634 


006 320 


010314 








MOV 


DRIVE, @TACS 




1635 


006322 


03271 4 


000040 






BIT 


#READY,@TACS 




1636 


006 326 


00 1 00 1 








BNE 


TST71 ;jBR IF "RESET" SET "READY" 


1 ^1 1 


006 330 


1 Ok Ada i 
1 VHVW 1 








ERROR 


1 


'"READY" DIDN'T SET 
























;»TEST 


71 


TEST "WFG" AND "REWIND" FOR NO ERRORS 


1640 
















(AUiCAOkOi A 
VXJX}v\0 t 






TST71 S 


SCOPE 








aaA 3 1 A 




a CI CI c: 
(0101010103 


1 79^^A 




MOV 


#5,$TIMES ;;D0 5 ITERATIONS 


1 fid 1 


00D J 4 2 


ni 97fi7 


006 362 


1 7^A1 ■5 




MOV 


#1$,$LPADR nSET SCOPE LOOP ADDRESS 


1 A 

1 Ad^ 


006 350 


012767 


CI CIA A O A 
I0100 1 4 9 


172612 




MOV 


#TST72,SESCAPE ifESCAPE 


TO TEST 72 ON ERROR 




006356 


10101310133 








RESET 






1 AAA 


006360 


^! Ot! A 








MOV 


DRIVE, &TACS 




1 AAT 


006 362 








IS: 


MOVB 


#REWINDIGO,0TACS 


GO TO "CLEAR LEADER" 


1 AAH 


006 366 


104412 








WAITREADY 


GO WAIT FOR "READY" TO SET 


f AAQ 


vvO 3 1x1 


ami 7 1 A 
■0103 / i ^ 








TST 


PTACS 


IS "ERROR" SET? 


t A^ 

« aIi 




2 010(010 i 








BPL 


2S 


BR IF NO 




MCIA ■» 7 A 


1 CI A^M 1 
1 10 41910 1 








ERROR 


1 


"ERROR" s 1 AFTER "REWIND" 


1652 


CI Jl A 1 7 A 




CI 7 CICIOICI 
10^10101010 




2$: 


BIT 


#LEADER,PTACS 


IS "CLEAR LEADER" = 1? 


1653 


006402 


001001 








BNE 


3S 


BR IF YES 


1654 


006404 


104001 








ERROR 


1 


NOT ON "CLEAR LEADER" AFTER "REWIND" 








00000 1 




3$: 


MOVB 


#WFG1G0,PTACS 


GET OFF OF "CLEAR LEADER" 


1656 


0064 1 2 


10441 2 








WAITREADY 


GO WAIT FOR "READY" TO SET 


1657 


0064 1 4 


032714 


1 20000 






BIT 


# ERROR! LEADER, @TACS 


SHOULD BE OFF OF "CLEAR LEADER" 


















WITH NO "ERROR" 


1 659 


006 420 


001 401 








BEQ 


.+4 


BR IF "WFG" MOVED TAPE WITH NO "ERROR" 


1661 


00642 2 


J w^l WI0 1 








ERROR 


1 


"WFG" FAILED 


1662 












1663 










jTHIS 


ISN'T A 


REAL TEST BUT A SMALL ROUTINE TO DETERMINE THE MAX, 


1664 










J TIME 


FOR THE 


WAIT LOOPS (WAIT FOR "READY" AND "TRANSFER REQUEST") 


1665 












1666 










;«TEST 


72 


ROUTINE TO DETERMINE TIME OF WAIT LOOPS 


1667 










• ; 




1668 


006424 


000004 






TST72: 


SCOPE 






1669 


006426 


012767 


000001 


172532 




MOV 


#1,$T1MES ;;D0 l ITERATION 
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ZTAAC.NEW 


T72 


ROUTINE 


TO DETERMINE 


TIME OF 


WAIT LOOPS 




1670 


006434 


005737 


001 100 




TST 


P»SPASS 


;IS THIS THE FIRST PASS? 


1671 


006440 


001021 






BNE 


TST73 ; ;BR 


IF NO 


1672 


006442 


000005 






RESET 






1673 


006444 


010314 






MOV 


DRIVE, iTACS 


; SELECT THE DRIVE 


1674 


006446 


112714 


000017 




MOVB 


SREWIND1G0,?TACS 


; START A REWIND 


1675 


006452 


104412 






WAITREADY 


; WAIT FOR READY 


1676 


006454 


1 12714 


000001 




MOVB 


SWFGiG0,9TACS 


; WRITE A FILE GAP 


1677 


006460 


104412 






WAITREADY 


; WAIT ON READY 


1678 


006462 


163737 


012072 


012116 


SUb 


P«HGHTIM,(a«MAXCNT 


;GET THE TIME IT TOOK 


1679 


006470 


005237 


0121 16 




INC 


@#MAXCNT 


;MAKE IT BIGGER 


1680 


006474 


0061 37 


012116 




ROL 


?»MAXCNT 




1681 


006500 


006137 


012116 




ROL 


?#MAXCNT 
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DZTAAC.NEW T72 ROUTINE TO DETERMINE TIME OF WAIT LOOPS 



SEQ 0053 



1682 










1////////////////////////////////////////////////////////////////////// 


1683 










I////////////////////////////////////////////////////////////////////// 


1684 










•THE FOLLOWING 


TESTS ARE USED TO 


CHECK 


VARIOUS OPERATIONS WHEN AT "CLEAR LEADER" 


1685 










J ////////////////////////////////////////////////////////////////////// 


1686 












1687 










i«TEST 


73 


TEST THAT "CLEAR 


LEADER" GOES FALSE ON "REWIND" 


1688 










s 1 


1689 


006504 


000004 






TST735 


SCOPE 








1690 


006506 


012767 


000005 


1724S2 




MOV 


#5»$TIMES 


|?D0 5 


ITERATIONS 


1691 


006514 


012767 


006600 


172446 




MOV 


|6$,SESCAPE 


1 {ESCAPE TO 6$ ON ERROR 


1692 


006522 


000005 








RESET 








1693 


006524 


010314 








MOV 


DRIVE, STACS 




; SELECT DRIVE 


1694 


006526 


1 12714 


000017 






MOVB 


eREWINDiG0,9TACS 




•GO TO CLEAR LEADER 


I69S 


006532 


104412 








WAITREADY 




•GO WAIT FOR "READY" TO SET 


1696 


006534 


032714 


020000 






BIT 


#LEADER»iTACS 




;AT "CLEAR LEADER"? 


1697 


006540 


001001 








BNE 


2S 




;BP IF YES 


1698 


006542 


1 04001 








ERROR 


1 




;ERROR--NOT AT CLEAR LEADER 


1 699 


006544 


00521 4 






2SS 


INC 


iTACS 




•START ANOTHER REWIND 


1 700 


006546 


005067 


000010 






CLR 


4$ 






1701 


006552 


032714 


000040 




35: 


BIT 


#READY,0TACS 




yWAlT ON "READY" TO CLEAR 


1702 


006556 


001404 








BEO 


5$ 






1703 


006560 


105227 








INCB 


(PC) + 






1704 


006562 


000000 






4Sl 











1705 


006564 


001 372 








BNE 


3S 






1706 


006566 


104001 








ERROR 


1 




; "READY" FAILED TO CLEAR 


1707 


006570 


032714 


020000 




5SS 


BIT 


#LEADER,8TACS 




•DID "CLEAR LEADER" GO FALSE? 


1708 


006574 


001401 








BEO 


6$ 




;BR IF YES 


1709 


006576 


104001 








ERROR 


1 




yCLEAR LEADER DIDN'T CLEAR 


1710 


006600 


005067 


172364 




6$: 


CLP 


SESCAPE 






1711 


006604 


104412 








WAITREADY 






1712 












S 71 J 










y»TEST 


74 


TEST FOR "CLEAR 


LEADER 


ERROR" FOR "WRITE FILE GAP FUNCTION" 


1714 










• 1 




1715 


006606 


000004 






TST74: 


SCOPE 








1716 


006610 


012767 


000005 


172350 




MOV 


#5,STIMES 


;D0 5 


ITERATIONS 


1717 


006616 


012767 


006646 


172262 




MOV 


SlSrSLPADR 


; f SET 


SCOPE LOOP ADDRESS 


1718 


006624 


01 2767 


006722 


172336 




MOV 


»TST75, SESCAPE 


; ;ESCAPE TO TEST 75 ON ERROR 


1719 


0066 32 


000005 








RESET 








1720 


006634 


010314 








MOV 


DRIVE, §TACS 




; SELECT DRIVE 


1721 


006636 


104412 








WAITREADY 




;MAKE SURE TAU IS READY 


1722 


006640 


1 12714 


00001 7 






MOVB 


«REWIND+GO,eTACS 




;LOAD REWIND AND GO 


1723 


006644 


104412 








WAITREADY 




;G0 WAIT FOR "READY" TO SET 


1724 


006646 


012700 


000001 




is: 


MOV 


#i,R0 






1725 


006652 


010314 








MOV 


DRIVE, §TACS 






1 726 


006654 


112714 


000001 






MOVB 


IWFGIGO, PTACS 




jSTART A WRITE FILE GAP FUNCTION 


1727 


006660 


03271 4 


000040 




38 : 


BIT 


»READY,PTACS 




;WAIT ON READY TO CLEAR 


1728 


006664 


001 402 








BEQ 


4$ 






1729 


006666 


006300 








ASL 


R0 






1730 


006670 


100373 








BPL 


3S 






1731 


006672 


000005 






4SS 


RESET 








1732 


006674 


010314 








MOV 


DRIVE, PTACS 




; SELECT DRIVE 


1733 


006676 


112714 


000001 






MOVB 


«WFGiGO,0TACS 




; START A WRITE FILE GAP FUNCTION 


1734 


006702 


104412 








WAITREADY 




;G0 «AIT FOR "READY" TO SET 


1735 


006704 


005714 








TST 


PTACS 




;DID ERROR BIT SET? 


1736 


006706 


100401 








BMi 


2S 




;BR IF YF.S 


1737 


006710 


104001 








ERROR 


1 




; "ERROR" BIT (BIT15) FAILED TO SET 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 1 -DZTAA-C 
DZTAAC.NEW T74 TEST FOR "CLEAR LFADER ERROR" FOR 



MACYl 1 27(732) ll-JUN-76 
WRITE FILE GAP FUNCTION" 



15:15 PAGE 40 



1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 



006712 032714 
006716 001001 
006720 104001 



2$ 



007072 
007100 
007102 
007106 



BIT 
BNE 

ERROR 1 

• ft^f 
»TEST 75 TEST 



006722 


000004 




TST75: 


SCOPE 




006724 


012767 


000005 


172234 


MOV 


#5,STIMES 


006732 


000005 






RESET 




006734 


012701 


000001 




MOV 


#1,R1 


006740 


010314 






MOV 


DRIVE, PTACS 


006742 


104412 






WAITREADY 


006744 


112714 


000003 




MOVB 


iWRlTE'GO, PTACS 


006750 


032714 


000040 


1$: 


BIT 


»READY,PTACS 


006754 


001403 






BEy 


TST76 


006756 


006301 






ASL 


Rl 


006760 


001373 






BNE 


1$ 


006762 


104001 






ERROR 


1 



ILEADER, BTACS ;HOW ABOUT CLEAR LEADER BIT 

TST75 ; ;BR IF SET 

1 ; "CLEAR LEADER" NOT SET 

READY" CLEARS WHEN STARTING A "WRITE" FUNCTION 

; ;D0 5 ITERATIONS 



006764 
006766 
006774 
006776 
007002 
007004 
007006 
007012 
007016 
007020 
007022 
007024 



007026 
007030 
007036 
007040 
007044 
007046 
007050 
007054 
007060 
007062 
007064 
007066 



;SET TIMER 
; SELECT DRIVE 
;WAIT FOR "READY" 
;START A "WRITE" 
; CHECK "READY" BIT 
; ;BR IF "READY" = 
; IS TIME UP? 
;BR IF NO 

? "READY" FAILED TO CLEAR 
*TEST 76 TEST "READY" CLEARS WHEN STARTING A "READ" FUNCTION 



012767 000005 172172 



TST76: 



SSfSTIMES 



012701 

010314 
104412 
112714 
032714 
001403 
006301 
001373 
104001 



14 

012767 
000005 
012701 
010314 
104412 
112714 
032714 
001403 
006301 
001373 
104001 



SCOPE 

MOV 
RESET 

MOV »1,R1 
MOV DRIVE, PTACS 

WAITREADY 



;D0 5 ITERATIONS 



MOVB 

BIT 
BEQ 
ASL 
BNE 
ERROR 



;SET TIMER 
jSELECT DRIVE 
; WAIT FOR "READY" 
; START A "READ" 
;CHECK "READY" BIT 
; ;BR IF "READY" = 
;IS TIME UP? 
;BR IF NO 

; "READY" FAILED TO CLEAR 
TEST "READY" CLEARS WHEN STARTING A "BACK SPACE FILE GAP" 



#READJGO,PTACS 

#READY,gTACS 

TST77 

Rl 
1$ 
1 



;#TEST 77 

TST77 



SCOPE 








MOV 


#5,STIMES 


; ;D0 


5 ITERATIONS 


RESET 








MOV 


»1,R1 




;SET TIMER 


MOV 


DRIVE, ?TACS 




; SELECT DRIVE 


WAITREADY 




;WAIT FOR "READY" 


MOVB 


«BSFG!GO,0TACS 




jSTART A "BACK SPACE FILE 


BIT 


#READY,PTACS 




;CHECK "READY" BIT 


BEQ 


TST100 


; ;bR 


IF "READY" = 


ASL 


Bl 




;IS TIME UP? 


BNE 


1$ 




;BR IF NO 


ERROR 


1 




; "READY" FAILED TO CLEAR 



012767 
000005 
012701 
010314 



000005 172066 



;*TEST 100 TEST "READY" CLEARS WHEN STARTING A "BACK SPACE BLOCK GAP" FUNCTION 

TST100: SCOPE 

85,$TIMES ; ;D0 5 ITERATIONS 



MOV 

RESET 
MOV 

MOV 



#1,R1 

DRIVE, SaTACS 



jSET TIMER 

I SELECT DRIVE 
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S£Q 0055 



1794 


007U0 


104412 








WAITREADY tWAlT FOR "READY" 


1795 


0071 12 


112714 


00001 1 






MOVB 


IBSBG1GO,0TACS J START A "BACK SPACE BLOCK GAP" 


1796 


007116 


032714 


000040 




13! 


BIT 


f READY, PTACS ;CHECK "READY" BIT 


1797 


007122 


001403 








BEO 


TST101 jiBR IF "READY" s 


1798 


007124 


006301 








ASL 


Rl JIS TIME UP? 


1799 


007126 


001373 








BNE 


IS ;BR IF NO 


1800 


007130 


104001 








ERROR 


1 } "READY" FAILED TO CLEAR 


1801 
















1802 










|*TEST 


101 


TEST "READY" CLEARS WHEN STARTING A "SPACE FORWARD FILE GAP" FUNCTION 


1803 












«*«#»»##^ 




1804 


007132 


000004 






TST101 : 


SCOPE 




1805 


007134 


012767 


000005 


172024 




MOV 


«5,STIMES ; ;D0 5 ITERATIONS 


1806 


007142 


000005 








RESET 




1807 


007144 


012701 


000001 






MOV 


llrRl JSET TIMER 


1808 


007150 


010314 








MOV 


DRlVErlTACS fSELECT DRIVE 


1809 


007152 


104412 








WAITREADY J WAIT FOR "READY" 


1810 


007154 


1 1271 4 


00001 3 






MOVB 


iSFFGlG0,9TACS jSTART A "SPACE FORWARD FILE GAP" 


I8ii 


007160 


032714 


000040 




iss 


BIT 


#READY/?TACS ; CHECK "READY" BIT 


1812 


007164 


001403 








BEO 


TST102 ; ;BP IF "READY" s 


1813 


007166 


006301 








ASL 


Rl ;IS TIME UP? 


1814 


007170 


001373 








BNE 


1$ ;BR IF NO 


1815 


007172 


104001 








ERROR 


1 f "READY" FAILED TO CLEAR 


1816 
















181? 










;*TEST 


102 


TEST "READY" CLEARS WHEN STARTING A "SPACE FORWARD BLOCK GAP" FUNCTION 


1818 
















1819 


007174 


000004 






TST102: 


SCOPE 




1820 


007176 


012767 


000005 


171762 




MOV 


#5,STIMES ; ;D0 5 ITERATIONS 


1821 


007204 


000005 








RESET 




1822 


007206 


012701 


000001 






MOV 


#1,P1 ;SET TIMER 


1823 


007212 


010314 








MOV 


DRIVE, PTACS JSELECT DRIVE 


1824 


007214 


104412 








WAITREADY ; WAIT FOR "READY" 


1825 


007216 


1 12714 


000015 






MOVB 


8SFBGiG0,PTACS ;START A "SPACE FORWARD BLOCK GAP" 


1826 


007222 


032714 


000040 




l$s 


BIT 


•READY, 0TACS jCHECK "READY" BIT 


1827 


007226 


001403 








BEO 


TST103 ; ;BR IF "READY" = 


1828 


007230 


006301 








ASL 


Rl ;IS TIME UP? 


1829 


007232 


001373 








BNE 


IS ;BR IF NO 


1830 


007234 


104001 








ERROR 


1 ; "READY" FAILED TO CLEAR 


1831 














1832 










;»TEST 


103 


TEST FOR "CLEAR LEADER ERROR" FOR "WRITE FUNCTION" 


1833 
















1834 


007236 


000004 






TST103: 


SCOPE 




1835 


007240 


012767 


000005 


171720 




MOV 


«5,STIMES fjDO 5 ITERATIONS 


1836 


007246 


012767 


007276 


171632 




MOV 


»1S,SLPADP J ;SET SCOPE LOOP ADDRESS 


1837 


007254 


012767 


007370 


171706 




MOV 


«TST104,SESCAPE ; j ESCAPE TO TEST 104 ON ERROR 


1838 


007262 


000005 








RESET 




1839 


007264 


010314 








MOV 


DRIVE, gTACS jSELtCT DRIVE 


1840 


007266 


104412 








WAITREADY ;MAKE SURE TAU IS READY 


1841 


007270 


1 12714 


000017 






MOVB 


#PEWlND+GO,iTACS ;LOAD REWIND AND GO 


1842 


007274 


104412 








WAITREADY }G0 WAIT FOR "READY" TO SET 


1843 


007276 


012700 


000001 




1$: 


MOV 


«1,R0 


1844 


007302 


010314 








MOV 


DRIVE, 9TACS 


1845 


007304 


1 12714 


000003 






MOVB 


#WRITEiGO,iTACS jSTART A WRITE FUNCTION 


1846 


007310 


032714 


000040 




3SI 


BIT 


•READY, PTACS jWAIT ON READY TO CLEAR 


184? 


007314 


001402 








BEQ 


4$ 


184B 


007316 


006300 








ASL 


R0 


1849 


007320 


100373 








BPL 


3$ 
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>ZTAAC. 


NEW 


T103 


TEST FOR 


"CLEAR LEADER 


ERROR" 


FOR "WRITE FUNCTION" 




1850 


007322 


000005 




4s: 


RESET 








1851 


007324 


010314 






MOV 


DRIVE, PTACS 




;SELECT DRIVE 


1852 


007326 


112714 


000003 




MOVB 


»WPlTEiG0,9TACS 




JSTART A WRITE FUNCTION 


1853 


007332 


012700 


000001 




MOV 


«l,R0 




jWAIT A WHILE FOR XFER REG, 


1854 


007336 


105714 




5S: 


TSTB 


gTACS 




jXFER REQ = 1? 


1855 


007340 


100402 






BMI 


6$ 




jBR IF YES 


1856 


007342 


005200 






INC 


R0 




jWAITED LONG ENOUGH? 


1857 


007344 


001374 






BNE 


5S 




jBR IF NO 


1858 


007346 


105715 




6s: 


TSTB 


?TADB 




fCLEAR TRANSFER REQ, 


1859 


007350 


104412 






WAITREADY 




J GO WAIT FOR "READY" TO SET 


i860 


007352 


005714 






TST 


iTACS 




;DID ERROR BIT SET? 


1861 


007354 


100401 






BMI 


2S 




;BR IF YES 


1862 


007356 


104001 






ERROR 


1 




; "ERROR" BIT (BIT15) FAILED 


1863 


007360 


032714 


020000 


2S: 


BIT 


PLEADER, gTACS 




;HOW ABOUT CLEAR LEADER BIT 


1864 


007364 


001001 






BNE 


TST104 


; ;BP IF SET 


1865 


007366 


104001 






ERROR 


1 




; "CLEAR LEADER" NOT SET 


1866 














««♦»#»♦»•!»*»»»»♦♦*♦»##»#»#*♦*#*«♦♦ 


1867 








;»TEST 


104 


TEST FOR "CLEAR 


LEADER 


ERROR" FOR "READ FUNCTION" 


1868 








• 


1869 


007370 


000004 




TST104: 


SCOPE 








1870 


007372 


012767 


000005 


171566 


MOV 


»5,STIMES 


IJDO 5 


ITERATIONS 


1871 


007400 


012767 


007430 


171500 


MOV 


»1S,$LPADR 


;;SET 


SCOPE LOOP ADDRESS 


1872 


007406 


012767 


007504 


171554 


MOV 


»TST105,$ESCAPE 


; jESCAPE TO TEST 105 ON ERROR 


1873 


007414 


000005 






RESET 








1874 


007416 


010314 






MOV 


DRIVE, gTACS 




jSELECT DRIVE 


1875 


007420 


104412 






WAITREADY 




jMAKE SURE TAU IS READY 


1876 


007422 


112714 


000017 




MOVB 


»REWIND+GO,gTACS 


jLOAD REWIND AND GO 


1877 


007426 


104412 






WAITREADY 




;G0 WAIT FOR "READY" TO SET 


1878 


007430 


012700 


000001 


1$: 


MOV 


#1,R0 






1879 


007434 


010314 






MOV 


DRIVE, 0TACS 






1880 


007436 


1 12714 


000005 




MOVB 


#READ!GO,PTACS 




; START A READ FUNCTION 


1881 


007442 


032714 


000040 


3$S 


BIT 


•READY, OTACS 




; WAIT ON READY TO CLEAR 


1882 


007446 


001402 






BEQ 


4$ 






1883 


007450 


006300 






ASL 


R0 






1884 


007452 


100373 






BPL 


3S 






1885 


007454 


000005 




4S: 


RESET 








1886 


007456 


010314 






MOV 


DRIVE, iTACS 




; SELECT DRIVE 


1887 


007460 


112714 


000005 




MOVB 


#READ|GO,§TACS 




jSTART A READ FUNCTION 


1888 


007464 


104412 






WAITRl 


EADY 




;G0 WAIT FOR "READY" TO SET 


1889 


007466 


005714 






TST 


PTACS 




;DID ERROR BIT SET? 


1890 


007470 


100401 






BMI 


2$ 




;BR IF YES 


1891 


007472 


104001 






ERROR 


1 




; "ERROR" BIT (BIT15) FAILED 


1892 


007474 


032714 


020000 


2S: 


BIT 


•LEADER, gTACS 




;HOW ABOUT CLEAR LEADER BIT 


1893 


007500 


001001 






BNE 


TST105 


; ;BR IF SET 


1894 


007502 


104001 






ERROR 


1 




; "CLEAR LEADER" NOT SET 


1895 


















1896 








;«TEST 


105 


TEST FOR "CLEAR 


LEADER 


ERROR" FOR "BACK SPACE FILE ( 


1897 


















1898 


007504 


000004 




TST105: 


SCOPE 








1899 


007506 


012767 


000005 


171452 


MOV 


#5,STIMES 


; JDO 5 


ITERATIONS 


1900 


007514 


012767 


007544 


171364 


MOV 


•1$,SLPADR 


?J5ET 


SCOPE LOOP ADDRESS 


1901 


007522 


012767 


007620 


171440 


MOV 


#TST106,SESCAPE 


; ;ESCAPE TO TEST 106 ON ERROR 


1902 


007530 


000005 






RESET 








1903 


007532 


010314 






MOV 


DRIVE, @TACS 




;SELECT DRIVE 


1904 


007534 


104412 






WAITREADY 




J MAKE SURE TAU IS READY 


1905 


007536 


112714 


000017 




MOVB 


«REWIND+GO,eTACS 


;LOAD REWIND AND GO 
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1906 


007542 


104412 








WAITREADY 


jGO WAIT FOR "READY" TO SET 


1907 


007544 


012700 


000001 




i$: 


MOV 


#1#R0 




1908 


007550 


010314 








MOV 


DRIVE, iTACS 




1909 


007552 


112714 


000007 






MOVB 


#BSFG«GO,gTACS 


ySTART A BACK SPACE FILE GAP FUNCTION 


1910 


007556 


032714 


000040 




3S: 


BIT 


»READy,?TACS 


;WAIT ON READY TO CLEAR 


1911 


007562 


001402 








BEQ 


4S 




1912 


007564 


006300 








ASL 


R0 




1913 


007566 


100373 








BPL 


3$ 




1914 


007570 


000005 






4$S 


RESET 






1915 


007572 


010314 








MOV 


DRIVE, §TACS 


; SELECT DRIVE 


1916 


007574 


112714 


000007 






MOVB 


#BSFGiGO,gTACS 


; START A BACK SPACE FILE GAP FUNCTION 


1917 


007600 


104412 








WAITREADY 


;G0 WAIT FOR "READY" TO SET 


1918 


007602 


005714 








TST 


gTACS 


;DID ERROR BIT SET? 


1919 


007604 


100401 








BMI 


2S 


;BR IF YES 


1920 


007606 


104001 








ERROR 


1 


; "ERROR" BIT (BITIS) FAILED TO SET 


1921 


007610 


032714 


020000 




2$5 


BIT 


#LEADER,@TACS 


;HOW ABOUT CLEAR LEADER BIT 


1922 


007614 


001001 








BNE 


TST106 


;;BR IF SET 


1923 


007616 


104001 








ERROR 


1 


; "CLEAR LEADER" NOT SET 


1924 


















1925 










f *TEST 


306 


TEST FOR "CLEAR 


LEADER ERROR" FOR "BACK SPACE BLOCK GAP FUNCTION" 


1926 












1927 


007620 


000004 






TST106: 


SCOPE 






1928 


007622 


012767 


000005 


171336 




MOV 


#5,STIMES 


; ;D0 5 ITERATIONS 


1929 


007630 


012767 


007660 


171250 




MOV 


#1$,$LPADR 


; ;SET SCOPE LOOP ADDRESS 


1930 


007636 


012767 


007734 


171324 




MOV 


#TST107,SESCAPE 


;; ESCAPE TO TEST 107 ON ERROR 


1931 


007644 


000005 








RESET 






1932 


007646 


010314 








MOV 


DRIVE, 0TACS 


; SELECT DRIVE 


1933 


007650 


104412 








WAITREADY 


;MAKE SURE TAU IS READY 


1934 


007652 


112714 


000017 






MOVB 


?fREWIND-fGO, iTACS 


;LOAD REWIND AND GO 


1935 


007656 


104412 








WAITREADY 


;G0 WAIT FOR "READY" TO SET 


1936 


007660 


012700 


000001 




ISJ 


MOV 


f?l,R0 




1937 


007664 


010314 








MOV 


DRIVE, iTACS 




1938 


007666 


112714 


000011 






MOVB 


#BSBGiGO, 9TACS 


; START A BACK SPACE BLOCK GAP FUNCTION 


1939 


007672 


032714 


000040 




3SS 


BIT 


IREADY, (STAGS 


;WAIT ON READY TO CLEAR 


1940 


007676 


001402 








BEQ 


4S 




1941 


007700 


006300 








ASL 


R0 




1942 


007702 


100373 








BPL 


3S 




1943 


007704 


000005 






4SS 


RESET 






1944 


007706 


010314 








MOV 


DRIVE, eTACS 


jSELECT DRIVE 


1945 


007710 


112714 


00001 1 






MOVB 


»BSBGJGO,@TACS 


; START A BACK SPACE BLOCK GAP FUNCTION 


1946 


007714 


104412 








WAITREADY 


;G0 WAIT FOR "READY" TO SET 


1947 


007716 


005714 








TST 


iTACS 


;DID ERROR BIT SET? 


1948 


007720 


100401 








BMI 


2$ 


;BR IF YES 


1949 


007722 


104001 








ERROR 


1 


; "ERROR" BIT (BIT15) FAILED TO SET 


1950 


007724 


032714 


020000 




2$! 


BIT 


PLEADER, PTACS 


;HOW ABOUT CLEAR LEADER BIT 


1951 


007730 


001001 








BNE 


TST107 


; ;BR IF SET 


1952 


007732 


104001 








ERROR 


1 


; "CLEAR LEADER" NOT SET 


1953 


















1954 










}*TEST 


107 


TEST FOR "CLEAR 


LEADER ERROR" FOR "SPACE FWD FILE GAP FUNCTION" 


1955 












1956 


007734 


000004 






TST107! 


SCOPE 






1957 


007736 


012767 


000005 


171222 




MOV 


#5, STIME5 


; ;D0 5 ITERATIONS 


1958 


007744 


012767 


007774 


171134 




MOV 


#1S,$LPADR 


; ;SET SCOPE LOOP ADDRESS 


1959 


007752 


012767 


010050 


171210 




MOV 


»TST110,$ESCAPF 


? {ESCAPE TO TEST 110 ON ERROR 


1960 


007760 


000005 








RESET 






1961 


007762 


010314 








MOV 


DRIVE, gTACS 


jSELECT DRIVE 
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1962 


007764 


104412 






WAITREADY 


jMAKE SURE TAU IS READY 


1963 


007766 


112714 


000017 




MOVB 


#REWIND+GO, OTACS 


;L0AD REWIND AND GO 


1964 


007772 


104412 






WAITREADY 


; GO WAIT FOR "READY" TO SET 


1965 


007774 


012700 


000001 


IS: 


MOV 


«1 ,R0 




1966 


010000 


010314 






MOV 


DRIVE, PTACS 




1967 


010002 


112714 


000013 




MOVB 


»SFFGIGO,PTACS 


jSTART A SPACE FWD FILE GAP 


1968 


010006 


032714 


000040 


3S: 


BIT 


#READY,?TACS 


; WAIT ON READY TO CLEAR 


1969 


010012 


001402 






BEQ 


4$ 




1970 


010014 


006300 






ASL 


R0 




1971 


010016 


J00373 






BPL 


3S 




1972 


010020 


000005 




4$: 


RESET 






1973 


010022 


010314 






MOV 


DRIVE, PTACS 


jSELECT DRIVE 


1974 


010024 


112714 


000013 




MOVB 


«SFFG1G0,PTACS 


; START A SPACE FWD FILE GAP 


1975 


010030 


104412 






WAITREADY 


;G0 WAIT FOR "READY" TO SET 


1976 


010032 


005714 






TST 


gTACS 


;DID ERROR BIT SET? 


1977 


010034 


100401 






BMI 


2$ 


;BR IF YES 


1978 


010036 


104001 






ERROR 


1 


; "ERROR" BIT (BIT15) FAILED 


1979 


010040 


032714 


020000 


2$: 


BIT 


»LEADER,PTACS 


;HOW ABOUT CLEAR LEADER BIT 


1980 


010044 


001001 






BNE 


TSTU0 ; 


;BR IF SET 


1981 


010046 


104001 






ERROR 


1 


; "CLEAR LEADER" NOT SET 



1983 










• *TEST 


110 


TEST FOR "CLEAR 1 


1984 
















1985 


010050 


000004 






TSTl 10: 


SCOPE 




1986 


010052 


012767 


000005 


171106 




MOV 


«5,STIMES 


1987 


010060 


012767 


010110 


171020 




MOV 


»1$,SLPADR 


1988 


010066 


012767 


010164 


171074 




MOV 


#TST1 1 1 , SESCAPE 


1989 


010074 


000005 








RESET 




1990 


010076 


010314 








MOV 


DRIVE, @TACS 


1991 


010100 


104412 








WAITREADY 


1992 


010102 


112714 


000017 






MOVB 


#REWIND+GO,PTACS 


1993 


010106 


104412 








WAITREADY 


1994 


010110 


012700 


000001 




IS! 


MOV 


»1,R0 


1995 


010114 


010314 








MOV 


DRIVE, PTACS 


1996 


010116 


112714 


000015 






MOVB 


#SFBG!GO,§TACS 


1997 


010122 


032714 


000040 




3S: 


BIT 


»READY,PTACS 


1998 


010126 


001402 








BEQ 


4$ 


1999 


010130 


006300 








ASL 


R0 


2000 


010132 


100373 








BPL 


3$ 


2001 


010134 


000005 






4$: 


RESET 




2002 


010136 


010314 








MOV 


DRIVE, §TACS 


2003 


010140 


112714 


000015 






MOVB 


»SFBGiGO, MACS 


2004 


010144 


104412 








WAITREADY 


2005 


010146 


005714 








TST 


0TACS 


2006 


010150 


100401 








BMI 


2$ 


2007 


010152 


104001 








ERROR 


1 


2008 


010154 


032714 


020000 




2$: 


BIT 


#LEADER,§TACS 


2009 


010160 


001001 








BNE 


TSTIU 


2010 


010162 


104001 








ERROR 


1 



FOR "SPACE FWD BLOCK GAP FUNCTION" 



2011 
2012 
2013 
2014 
2015 
2016 
2017 



; ;D0 5 ITERATIONS 
; ;SET SCOPE LOOP ADDRESS 



;SELECT DRIVE 

;MAKE SURE TAU IS READY 

;LOAD REWIND AND GO 

•GO WAIT FOR "READY" TO SET 



;START A SPACE FWD BLOCK GAP FUNCTION 
; WAIT ON READY TO CLEAR 



•SELECT DRIVE 

•START A SPACE FWD BLOCK GAP FUNCTION 
;G0 WAIT FOR "READY" TO SET 
;DID ERROR BIT SET? 
;BR IF YES 

; "ERROR" BIT (BIT15) FAILED TO SET 
;HOW ABOUT CLEAR LEADER BIT 

J ;BR IF SET 

; "CLEAR LEADER" NOT SET 

• 

♦TEST 111 TEST "GO" BIT IS WRITE ONLY 



010164 
010166 
010174 

010202 



012767 000005 
012767 010206 



170772 
170704 



TSTl 1 1 ! SCOPE 

MOV »5,$TIMES 
MOV 8l$,$LPADR 

RESET 



; ;D0 5 ITERATIONS 

; 'SET SCOPE LOOP ADDRESS 
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2018 


010204 


010314 




MOV 


DRIVE, 3TACS 


?LOAD THE DRIVE 


2019 


010206 


052714 000001 


1$: 


BIS 


#l,@TACS 


fSET "GO" BIT 


2020 


010212 


032714 000001 




BIT 


#lf 0TACS 


•TRY TO READ IT 


2021 


010216 


001401 




BEQ 


2$ 


;N0 ERROR IF "GO" 


2022 


010220 


104001 




ERROR 


1 


;G0 BIT WASN'T 


2023 


010222 


104412 


2S! 


WAITREADY 


yWAIT ON "READY" 
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2024 










2025 










2026 










2027 










2028 










2029 










2030 










2031 










2032 










2033 


010224 


000004 






2034 


010226 


012767 


000012 


170732 


2035 


010234 


012767 


010276 


170644 


2036 


010242 


012767 


010374 


170720 


2037 


010250 


000005 






2038 


010252 


010314 






2039 


010254 


104412 






2040 


010256 


112714 


000017 




2041 


010262 


104412 






2042 


010264 


112714 


000001 




2043 


010270 


104412 






2044 


010272 


000005 






2045 


010274 


010314 






2046 


010276 


1 12714 


000002 




2047 


010302 


012700 


000001 




2048 


010306 


006300 






2049 


010310 


001376 






2050 


010312 


105714 






2051 


010314 


100001 






2052 


010316 


104001 






2053 


010320 


005214 






2054 


010322 


012700 


000001 




2055 


010326 


006300 






2056 


010330 


001376 






2057 


010332 


105714 






2058 


010334 


100401 






2059 


010336 


104001 






2060 


010340 


105015 






2061 


010342 


105714 






2062 


010344 


100001 






2063 


010346 


104001 






2064 


010350 


104413 






2065 


010352 


052714 


000020 




2066 


010356 


105714 






2067 


010360 


100001 






2068 


010362 


104001 






2069 


010364 


104412 






2070 


010366 


005714 






2071 


010370 


100001 






2072 


010372 


104001 






2073 










2074 










2075 










2076 


010374 


000004 






2077 


010376 


012767 


000012 


170562 


2078 


010404 


012767 


010472 


170474 


2079 


010412 


012767 


010534 


170550 



THE FOLLOWING TESTS CHECKS FOR PROPER OPERATION OF "TRANSFER REQUEST" 
AND "ILbS" FOB BOTH WRITING AND READING 



»TEST 112 TEST TRANSFER REQUEST & ILBS FOR "WRITE" 

TSTl 12: SCOPE 



MOV 


#10,,STIMES ; 


J DO 


10. ITERATIONS 


MOV 


#8$»$LPADR , 


;SET 


SCOPE LOOP ADDRESS 


MOV 


#TST1 13f SESCAPE 


; ESCAPE TO TEST U 3 ON ERROR 


RESET 








MOV 


DRIVE, PTACS 




jSELECT DRIVE 


WAITREADY 




; INSURE DRIVE IS READY 


MOVB 


SREWIND+GO,§TACS 




;G0 TO BOT 


WAITREADY 




;G0 WAIT FOR "READY" TO SET 


MOVB 


SWFG+GOriTACS 




;GET OFF OF CLEAR LEADER 


WAITREADY 




jGO WAIT FOR "READY" TO SET 


RESET 








MOV 


DRIVE, iTACS 






MOVB 


•WRITE, ?TACS 




jLOAD "WRITE" FUNCTION 


MOV 


«1,R0 






ASL 


P0 




?KILL A LITTLE TIME 


BNE 


IS 






TSTB 


PTACS 






BPL 


2$ 




; INSURE XFER REQ=0 


ERROR 


1 




?XFER REQ. SET BEFORE "GO" 


INC 


0TACS 




,'SET "GO" 


MOV 


#1 ,R0 






ASL 


R0 




jKILL A LITTLE TIME 


BNE 


3$ 






TSTB 


§TACS 






BMI 


4$ 




;CHECK THAT XFER EQ=1 


ERROR 


1 




jXFER REQ FAILED TO SET 


CLRB 


PTADB 




;KNOCK DOWN XFER REQ. 


TSTB 


gTACS 






BPL 


5S 




jCHECK THAT "XFER REQ" IS CLEAR 


ERROR 






J XFER REQ FAILED TO CLEAR 


WAITXFER 




;G0 WAIT ON "TRANSFER REQUEST" TO 


BIS 


#ILBS,PTACS 




;SET ILBS--WRITE CRC 


TSTB 


9TACS 




;D1D "XFER REQ" CLEAR? 


BPL 


6$ 




;BR IF YES 


ERROR 


1 




;"ILBS" DIDN'T CLEAR "XFER REQ« 


WAITREADY 




;G0 WAIT FOR "READY" TO SET 


TST 


PTACS 




;ANY ERROR? 


BPL 


TST113 


;BR 


IF NO 


ERROR 


1 




;AN ERROR OCCURRED 



,"»TEST 113 TEST "TRANSFER REQ" AND "ILBS" FOR "READ" 

TSTl 13: SCOPE 

MOV #10,,$TIMES ;?D0 10, ITERATIONS 

MOV S4S,SLPADR jjSET SCOPE LOOP ADDRESS 

MOV #TST114,SESCAPE ; ;ESCAPE TO TEST 114 ON ERROR 
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DZTAAC.NEW T113 TEST "TRANSFER REQ« AND "ILBS" FOR "READ" 



SEQ 0.061 



2080 


010420 


00000S 






RESET 






2081 


010422 


010314 






MOV DRIVE* f TAGS 




; SELECT DRIVE 


2082 


010424 


104412 






WAITREADY 




;CHECK READY 


2083 


010426 


052714 


000017 




BIS «REWIND-fG0,9TACS 






2084 


010432 


104412 






WAITREADX 




;G0 WAIT FOR "READY" TO SET 


2085 


010434 


112714 


000001 




HOVB «WFGiG0, 9TACS 




J GET OFF OF "CLEAR LEADER" 


2086 


010440 


104412 






WAITREADY 




;G0 WAIT ON "READY" 


2087 


010442 


1 12714 


000003 




MOVB »WRITE1 GO* 9TACS 




ISTART A WRITE 


2088 


010446 


104413 






WAITXFER 






2089 


010450 


112715 


000377 




MOVB «377, 9TADB 




> WRITE ON TAPE 


2090 


010454 


104413 






WAITXFER 






2091 


010456 


112715 


000377 




MOVB #377,0TADB 




;WRITE ON TAPE 


2092 


010462 


104413 






WAITXFER 






2093 


010464 


052714 


000020 




BIS f ILB6,9TACS 






2094 


010470 


104412 






WAITREADY 






2095 


010472 


112714 


000017 


Ui 


MOVB «R£WIND1G0,9TACS 






2096 


010476 


104412 






WAITREADY 






2097 


010500 


112714 


000005 




MOVB «READ1GO#0TACS 




J START A READ 


2098 


010504 


104413 






WAITXFER 




jGO WAIT ON "TRANSFER REQUEST" 


2099 


010506 


005715 






TST iTADB 




;CLEAR XFER REQ 


2100 


010510 


10S714 






TSTB 9TACS 




;D1D XFER REQ CLEAR? 


2101 


010512 


100001 






BPL 2$ 




?BR IF YES 


2102 


010514 


104001 






ERROR 1 




JXFER REQ FAILED TO CLEAR 


2103 


010516 


104413 




2$: 


WAITXFER 




;G0 WAIT ON "TRANSFER REQUEST" 


2104 


010520 


052714 


000020 




BIS flLBS/PTACS 




J START ILBS--CLEARS XFER REQ 


2105 


010524 


105714 






TSTB 9TACS 




;DID XFER REQ CLEAR? 


2106 


010526 


100001 






BPL 3$ 




;BR IF YES 


2107 


010530 


104001 






ERROR 1 




;XFER REQ FAILED TO CLEAR 


2108 


010532 


104412 




3$: 


WAITREADY 




;G0 WAIT FOR "READY" TO SET 


2109 








; ; ««»»««««««««»«*«»«*«*«*«««»«'«««»««*««»«««««*«'«'«»»«'««««»»»«««««« 


2110 








;»TEST 


114 TEST THAT TADB (READ 


BUFFER) INITIALIZES TO 0'S 


2111 










2112 


010534 


000004 




TST114! 


SCOPE 






2113 


010536 


012767 


010546 


170342 


MOV »18«$LPADP J 


ISET 


SCOPE LOOP ADDRESS 


2114 


010544 


000005 






RESET 






2115 


010546 


011500 




ISt 


MOV gTADB,R0 




jPUT TADB IN R0 


2H6 


010550 


001401 






BEG TSTl 15 ; 


jCHECK FOR ALL ZEROS 


2117 


010552 


104006 






ERROR 6 




;TADB NOT ALL ZEROS 


2118 








; • ««««« 




2119 








j»TEST 


115 TEST TADB (WRITE 


BUFFER) FOR WRITE ONLY 


2120 










2121 


010554 


000004 




TST115S 


SCOPE 






2122 


010556 


012715 


177777 




MOV «-l,9TADB 




fLOAD TADB WITH I'S 


2123 


010562 


011500 






MOV @TADB,R0 




;PUT TADB IN R0 


2124 


010564 


001401 






BEQ TST116 J 


;BP 


IF IT DIDN'T CHANGE 


2125 


010566 


104006 






ERROR 6 




; ERROR 
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2126 












2127 










;»TEST 


116 


FLOAT A "1" THROUGH TADB 


2128 










5 


2129 


010570 


000004 






TST116: 


SCOPE 






2130 


010572 


012767 


000012 


170366 




MOV 


#10,,$TIMES 


; :D0 10. ITERATIONS 


2131 


010600 


012767 


010634 


170300 




MOV 


tlSrSLPADR 


J ;SET SCOPE LOOP ADDRESS 


2132 


010606 


012767 


010666 


170354 




MOV 


#4$,$ESCAPE 


; ;ESCAPE TO 4$ ON ERROR 


2133 


010614 


000005 








RESET 






2134 


010616 


010314 








MOV 


DRIVE, PTACS 




2135 


010620 


112714 


000017 






MOVB 


#REWIND1G0, 0TACS 


; POSITION THE TAPE 


2136 


010624 


104412 








WAITREADY 


;G0 WAIT FOR "READY" TO SET 


2137 


010626 


112714 


000001 






MOVB 


«WFGiG0,9TACS 


;GET OFF OF "CLEAR LEADER" 


2138 


010632 


104412 








WAITREADY 


jGO WAIT FOR "READY" TO SET 


2139 


010634 


01:^700 


000001 




1$: 


MOV 


#1#R0 


^INITIALIZE THE PATTERN 


2140 


010640 


lilt 14 


000003 






MOVB 


#WRITE1G0,PTACS 


; START A WRITE FUNCTION 


2141 


0106 44 


104413 








WAITXFER 


;G0 WAIT ON"TRANSFER REQUEST" 


2142 


010646 


110015 






2$: 


MOVB 


R0, OTADB 


;LOAD TADB WRITE BUFFER 


2143 


010650 


104413 








WAITXFER 


;WAIT ON "TRANSFER REQUEST" 


2144 


010652 


011501 








MOV 


0TADB,R1 


; READ THE DATA BUFFER 


2145 


010654 


120001 








CMPB 


R0» Rl 


;CHECK THE DATA 


2146 


010656 


001401 








BEQ 


3S 


;BR IF DATA IS GOOD 


2147 


010660 


104007 








ERPOP 


7 


;ERROR---TADB NOT EQUAL R0 


2148 


010662 


106300 






3S; 


ASLB 


R0 


JNEXT PATTERN 


2149 


010664 


103370 








BCC 


2S 


;BR IF MORE TO DO 


2150 


010666 


152714 


000020 




4S: 


BISB 


#ILBS, PTACS 


JWRITE CRC 


2151 


010672 


104412 








WAITREADY 


;G0 WAIT FOR "READY" TO SET 
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SEQ 0063 



2152 








2153 








2154 








2155 


010674 


000004 




2156 


010676 


012767 


000012 


2157 


010704 


012767 


010740 


2158 


0)0712 


012767 


010772 


2159 


010720 


000005 




21fc0 


010722 


010314 




2161 


010724 


112714 


000017 


2162 


010730 


104412 




2163 


010732 


112714 


000001 


2164 


010736 


104412 




2165 


010740 


012700 


177776 


2166 


010744 


112714 


000003 


2167 


010750 


104413 




2168 


010752 


110015 




2169 


010754 


104413 




2170 


010756 


011501 




2171 


010760 


1 20001 




2172 


010762 


001401 




2173 


010764 


104007 




2174 


010766 


106300 




2175 


010770 


103770 




2176 


010772 


152714 


000020 


2177 


010776 


104412 





;*TEST 1 
TSTl 17: 



17 FLOAT A "0" THROUGH TADB 

SCOPE 



170262 
170174 

170250 



3S: 
4S: 



MOV 


#10,,SIIMES 


jDO I 


0. ITERATIONS 


MOV 


»1S,SLPADR 


J SET 


SCOPE LOOP ADDRESS 


MOV 


l4Sr$ESCAP£ 


; ESCAPE TO 4S ON ERROR 


RESET 








MOV 


DRIVE, 9TACS 






MOVE 


«REWIND!GO,@TACS 




• POSITION THE TAPE 


wAITREADY 




• GO WAIT FOR "READY" TO SET 


HOVB 


»WFG<G0r9TACS 




; GET OFF OF "CLEAR LEADER" 


WAITREADY 




; GO WAIT FOR "READY " TO SET 


MOV 


#-2,R0 




; INITIALIZE THE PATTERN 


MOVB 


♦WRITEJGO,0TACS 




TSTART A WRITE FUNCTION 


WAITXFEP 




;G0 WAIT ON "TRANSFER REQUEST" TO SET 


MOVB 


P0,@TADB 




;LOAD INTO WRITE BUFFER 


WAITXFER 




;WAIT ON "TRANSFER REQUEST" 


MOV 


@TADB,R1 




;READ THE DATA BUFFER 


CMPB 


R0,R1 




fCHECK THE DATA 


BEQ 


3S 




}BR IF DATA IS GOOD 


ERROR 


7 




J ERROR— TADB NOT EQUAL R0 


ASLB 


R0 




jNEXT PATTERN 


BCS 


2$ 




•BR IF MORE TO DO 


BISB 


»ILBS,§TACS 




{WRITE CRC 


WAITREADY 




jGO WAIT FOR "READY" TO SET 
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2178 








2179 








2180 








2181 


01 1000 


000004 




2182 


011002 


012767 


000012 


2183 


01 1010 


012767 


011044 


2184 


01 1016 


012767 


011074 


2185 


01 1024 


004*005 




2186 


011026 


010314 




2187 


01 1030 


112714 


000017 


2188 


01 1034 


104412 




2189 


01 1036 


112714 


000001 


2190 


01 1042 


104412 




2191 


01 1044 


005000 




2192 


011046 


112714 


000003 


2193 


0U052 


104413 




2194 


01 1054 


1 10015 




2195 


011056 


104413 




2196 


01 1060 


011501 




2197 


0! 1062 


120001 




2198 


01 1064 


001401 




2199 


01 1066 


104005 




2200 


011070 


105200 




2201 


011072 


001370 




2202 


011074 


152714 


000020 


2203 


011100 


104412 





«TEST 120 COUNT PATTERN TO TADB 

TST120: SCOPE 



170156 

170070 
170144 



MOV 


#10,,STIMES 


J DO 


0, ITERATIONS 


MOV 


SUfSLPADR 


fSET 


SCOPE LOOP ADDRESS 


MOV 


#4$,S£SCAPE 


{ESCAPE TO 4$ ON ERROR 


RESET 








MOV 


DRIVE, @TACS 






MOVB 


iREWINDiGO.iTACS 




{POSITION THE TAPE 


WAITREADY 




{GO WAIT FOP "READY" TO SET 


MOVB 


SWFG'GO.iTACS 




{GET OFF OF "CLEAR LEADER" 


WAITREADY 




{GO WAIT FOR "READY" TO SET 


CLR 


B0 




{INITIALIZE THE COUNT PATTERN 


HOVB 


#WPITEJGO,(tiTACS 




{START A WRITE FUNCTION 


WAITXFER 




•GO WAIT ON "TRANSFER REQUEST" TO SET 


MOVB 


R0,gTADB 




{LOAD TADB WRITE BUFFER 


WAITXFEP 




{WAIT ON "TRANSFER REQUEST" 


MOV 


9TADB,R1 




{READ THE DATA BUFFER 


CMPB 


P0,R1 




{CHECK THE DATA 


BEQ 


3$ 




{BR IF DATA IS GOOD 


ERROR 


5 




{ERROR— -TADB NOT EQUAL R0 


INCB 


P0 




{UPDATE THE PATTERN 


BNE 


2$ 




{LOOP IF NON-ZERO 


BISB 


#ILBS,PTACS 




• WRITE CPC 


WAITREADY 




•GO WAIT FOR "READY" TO SET 
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DZTAAC.NEW T121 END OF TEST CODE 



SEQ 0065 



2204 










; 


2205 










J*TEST 


121 


END OF TEST CODE 




2206 










J J »**#«*«»»«»»*»«^»««#« »«#*»»«*»»»»»«»«**»*.»«-*» 


2207 


011102 


000004 






TST121: 


SCOPE 






2208 


011104 


012767 


000001 


170054 




MOV 


»1,STIMES 


;D0 1 ITERATION 


2209 


011112 


000005 








RESET 






2210 


011114 


010314 








MOV 


DRIVE, gTACS 


; SELECT DRIVE 


2211 


011116 


112714 


000017 






MOVB 


»REWIND1G0,PTACS 




2212 


011122 


104412 








WAITREADY 




2213 










.SBTTL 


END OF 


PASS ROUTINE 




2214 


















2215 










! t 


2216 










:»INCREMENT THE 


PASS NUMBER (SPASS) 


2217 










;»TYPE 


-END PASS" 




2218 










;»IF THERES A MONITOR GO TO IT 




2219 










;»1F THERE ISN'T JUMP TO START 




2220 










J»IF IT 


IS DESIRED TO HAVE A BELL INDICATE THE "END OF PASS" LOCATION 


2221 










;«$ENDMG CAN BE 


CHANGED TO 7. 




2222 


















2223 


011124 








SEOP! 








2224 


011124 


000004 








SCOPE 






2225 


011126 


005067 


167750 






CLR 


STSTNM 


• ;ZERO THE TEST NUMBER 


2226 


011132 


005067 


170030 






CLB 


STIMES 


• ;ZERO THE NUMBER OF ITERATIONS 


2227 


011136 


005267 


167736 






INC 


SPASS 


; INCREMENT THE PASS NUMBER 


2228 


011142 


042767 


100000 


167730 




BIC 


8100000, SPASS 


jDON'T ALLOW A NEG. NUMBER 


2229 


011150 


005327 








DEC 


tPOf 


JLOOP? 


2230 


011152 


000001 






SEOPCT: 


.WORD 


1 




2231 


011154 


003015 








BGT 


SDOAGN 


• J YES 


2232 


011156 


012737 








MOV 


(PC)f#g(PC)+ 


■ JRESTORE COUNTER 


2233 


011160 


000001 






SFNDCT: 


,WORD 


1 




2234 


011162 


011152 








SEOPCT 






2235 


011164 


104401 


011217 






TYPE 


, SENDMG 


;TYPE "END PASS" 


2236 


0U170 


013700 


000042 




SGET42: 


MOV 


@«42,R0 


;GET MONITOR ADDRESS 


2237 


011174 


001405 








BEO 


SDOAGN 


jBRANCH IF NO MONITOR 


2238 


011176 


000005 








RESET 




jCLEAR THE WORLD 


2239 


011200 


004710 






SENDAD: 


JSR 


PC, (R0) 


;G0 TO MONITOR 


2240 


011202 


000240 








NOP 




JSAVE ROOM 


2241 


011204 


000240 








NOP 




,-FOR 


2242 


011206 


000240 








NOP 




jACTll 


2243 


011210 








$DOAGN: 








2244 


011210 


000137 








JMP 


# ( PC ) 4 


J RETURN 


2245 


011212 


002234 






SPTNAD: 


.WORD 


START 




2246 


011214 


377 


377 


000 


SENULLS 


.BXTE 


"1,"1,0 


;NULL CHARACTER STRING 


2247 


011217 


015 


042412 


042116 


SLNDMG: 


.ASCIZ 


<15><12>/END PASS/ 


2248 


011224 


050040 


051501 


000123 
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DZTAAC.NEW SCOPE HANDLER ROUTINE 



2249 










.SBTTL 


SCOPE 


HANDLER ROUTINE 




2250 


















2251 












2252 










;»THIS 


ROUTINE 


CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


2253 










;»AND LOAD THE 


TEST NUMBER(STSTNM) INTO THE DISPLAY REG . (DISPLAY<7 : 0> ) 


2254 










;*AND LOAD THE 


ERROR FLAG (SERFLG) INTO DISPLAY<1 5 ! 08> 


2255 










;*THE SWITCH OPTIONS PROVIDED BY 


THIS ROUTINE ARE: 


2256 










;«SW14s: 


1 


LOOP ON TEST 




2257 










;*SW1 Is 


1 


INHIBIT ITERATIONS 


2258 










;»SW09s 


1 


LOOP ON ERROR 




2259 










;»SW08= 


1 


LOOP ON TEST IN 


SWR<7!0> 


2260 










;«CALL 








2261 










• «■ 


SCOPE 


; ; SCOPES 


lOT 


2262 


















2263 


011232 








sscoPE: 








2264 


011232 


104406 








CKSWR 




; jTEST FOR CHANGE IN SOFT-SWR 


2265 


011234 


032777 


040000 


167676 


IS! 


BIT 


#BIT14,3SWR 


; ;LO0P ON PRESENT TEST? 


2266 


011242 


001111 








BNF 


SOVER 


; ;YES IF SW14=1 


2267 










!»#»I#START OF 


CODE FOR THE XOR 


TESTER##»## 


2268 


011244 


000416 






SXTSTR: 


BR 


6S 


; ; IF PUNNING ON THE "XOR" TESTER CHANGE 


2269 
















; ;THIS INSTRUCTION TO A "NOP" (NOP=240) 


2270 


011246 


013746 


000004 






MOV 


g«LRRVEC, -(SP) 


; ;SAVE THE CONTENTS OF THE ERROR VECTOR 


2271 


011252 


012737 


011272 


000004 




MOV 


#5$,P#ERRVEC 


; ;SET FOR TIMEOUT 


2272 


011260 


005737 


177060 






TST 


g#177060 


; ;TIME OUT ON XOR? 


2273 


011264 


012637 


000004 






MOV 


(SP)+, 0XEHRVEC 


! JRESTORE THE ERROR VECTOR 


2274 


011270 


000463 








BR 


SSVLAD 


; J GO TO THE NEXT TEST 


2275 


011272 


022626 






5SS 


CMP 


(SP)+, (SP)+ 


; ;CLEAR THE STACK AFTER A TIME OUT 


2276 


011274 


012637 


000004 






MOV 


(SP)+,§#ERRVEC 


; ; RESTORE THE ERROR VECTOR 


2277 


011300 


000423 








BR 


7S 


; ;LOOP ON THE PRESENT TEST 


2278 


011302 








6S: ; »«»ff»END OF CODE FOR THE XOR 


TESTER####» 


2279 


011302 


032777 


000400 


167630 




BIT 


«BIT08, OSWR 


; ;LOOP ON SPEC. TEST? 


2280 


011310 


001404 








BEQ 


2$ 


; ;BR IF NO 


2281 


01 1312 


127767 


167622 


167562 




CMPB 


PSWR, STSTNM 


; ;0N THE RIGHT TEST? SWR<7:0> 


2282 


01 1320 


001462 








BEO 


SOVER 


; ;BR IF YES 


2283 


011322 


105767 


167555 




2S: 


TSTB 


SERFLG 


; ;HAS AN ERROR OCCURRED? 


2284 


011326 


001421 








BEQ 


3S 


; ;BR IF NO 


2285 


011330 


126767 


167561 


167545 




CMPB 


SERMAX, SERFLG 


; ;MAX. ERRORS FOR THIS TEST OCCURRED? 


2286 


011336 


101015 








BHl 


3$ 


; ;BR IF NO 


2287 


011340 


032777 


001000 


167572 




BIT 


»BIT09,PSWR 


; ;LOOP ON ERROR? 


2288 


011346 


001404 








BEQ 


4$ 


; ;BR IF NO 


2289 


01 1350 


016767 


167534 


167530 


7SS 


MOV 


SLPEPR, SLPADR 


; ; SET LOOP ADDRESS TO LAST SCOPE 


2290 


01 1356 


000443 








BR 


SOVER 




2291 


011360 


105067 


167517 




4$: 


CLRB 


SERFLG 


J 1 ZERO THE ERROR FLAG 


2292 


01 1364 


005067 


167576 






CLR 


STIMES 


ff CLEAR THE NUMBER OF ITERATIONS TO MAKE 


2293 


011370 


000415 








BR 


IS 


; J ESCAPE TO THE NEXT TEST 


2294 


011372 


032777 


004000 


167540 


3$: 


BIT 


»BIT11,0SWR 


; jINHIBIT ITERATIONS? 


2295 


01 1400 


001011 








BNE 


IS 


; ;BR IF YES 


2296 


011402 


005767 


167472 






TST 


SPASS 


; ; IF FIRST PASS OF PROGRAM 


2297 


011406 


001406 








BEQ 


IS 


; ; INHIBIT ITERATIONS 


2298 


011410 


005267 


167470 






INC 


SICNT 


; ; INCREMENT ITERATION COUNT 


2299 


011414 


026767 


167546 


167462 




CMP 


STIMES, SICNT 


; ;CHECK THE NUMBER OF ITERATIONS MADE 


2300 


011422 


002021 








BGE 


SOVER 


; ;BR IF MORE ITERATION REQUIRED 


2301 


011424 


012767 


000001 


167452 


IS! 


MOV 


»1, SICNT 


; ;REINITIALIZE THE ITERATION COUNTER 


2302 


011432 


016767 


000044 


167526 




MOV 


SMXCNT, STIMES 


; JSET NUMBER OF ITERATIONS TO DO 


2303 


011440 


105267 


167436 




6SVLAD: 


INCB 


STSTNM 


; JCOUNT TEST NUMBERS 


2304 


011444 


011667 


167436 






MOV 


(SP) , SLPADR 


J ; SAVE SCOPE LOOP ADDRESS 
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SEQ 0067 



2305 


01 1450 


011667 


167434 




MOV 


(SP),$LPERR 


;SAV£ ERROR LOOP ADDRESS 


2306 


011454 


005067 


167510 




CLR 


SESCAPE 


jCLEAR THE ESCAPE FROM ERROR ADDRESS 


2307 


0U460 


112767 


000001 


167427 


MOVB 


#1,SERMAX 


;ONLY ALLOW ONE(l) ERROR ON NEXT TEST 


2308 


011466 


016777 


167410 


167446 


SOVERI MOV 


STSTNM, ©DISPLAY 


JDISPLAY TEST NUMBER 


2309 


011474 


016716 


167406 




MOV 


SLPADR, (SP) 


J FUDGE RETURN ADDRESS 


2310 


01 1500 


000002 






RTI 




jflXES PS 



2311 01 1502 003720 



SMXCNT; 2000, 



fMAX, NUMBER OF ITERATIONS 
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2312 








2313 








2314 








2315 








2316 








2317 








2318 








2319 








2320 








2321 








2322 








2323 








2324 








2325 








2326 


011504 






2327 


011504 


104406 




2328 


01 1506 


011437 


001162 


2329 


011512 


011537 


001 164 


2 3 30 


011516 


010037 


001124 


2331 


01 1522 


010137 


001126 


2332 


011526 


105267 


167351 


2333 


011532 


001775 




2334 


011534 


016777 


167342 


2335 


011542 


032777 


002000 


2336 


01 1550 


001402 




2337 


fcil 1552 


104401 


001172 


2338 


01 1556 


005267 


167330 


23 39 


01 1562 


01 1667 


167330 


2340 


011566 


162767 


000002 


2341 


011574 


117767 


167316 


2342 


011602 


032777 


020000 


2343 


011610 


001004 




2344 


011612 


004767 


000060 


2345 


011616 


104401 


001177 


2346 


01 1622 






2347 


011622 


005777 


167312 


2348 


011626 


100002 




2349 


011630 


000000 




2350 


011632 


104406 




2351 


0U634 


032777 


001000 


2352 


011642 


001402 




2353 


011644 


016716 


167240 


2354 


01 1650 


005767 


167314 


2355 


01 1654 


001402 




2356 


01 1656 


016716 


167306 


2357 


01 1662 






2358 


011662 


022737 


011200 


2359 


011670 


001001 




2360 


011672 


000000 




23bl 


011674 






2362 


0U674 


000002 




2363 









167400 
167370 



167322 

167312 
167330 



.SBTTL EPROR HANDLER ROUTINE 

;«THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;»SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;«AND GO TO TYPERR ON ERROR 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



«SW15= 
;*SW13=1 
;*SW10=1 
;»SW09=1 
;»CALL 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 





ERROR 


N ;;ERROR 


SERRORs 








CKSWR 






MOV 


PTACS#§#$REG0 




MOV 


gTADB,§#SREGl 


ERR0R15 


MOV 


R0,e»SGDDAT 




MOV 


R1,^»SBDDAT 


7$: 


INCB 


SERFLG 




BEQ 


7$ 




MOV 


STSTNM,PDISPLAY 




BIT 


#BITi0,§SWR 




BEO 


IS 




TYPE 


,SBELL 


IS: 


INC 


SERTTL 




MOV 


(SP),SERRPC 




SUB 


«2,SERRPC 




MOVB 


PSERRPCSITEMB 




BIT 


#BITl3r@SWR 




BNE 


20S 




JSR 


PC f TYPERR 




TYPE 


,SCRLF 


20$: 






2s: 


TST 


iSWR 




BPL 


3$ 




HALT 






CKSWR 




3S: 


BIT 


»BIT09,gSWR 




BEQ 


4$ 




MOV 


$LPERR, (SP) 


4$: 


TST 


SESCAPE 




BEQ 


5$ 




MOV 


SESCAPE, (SP) 


5S: 








CMP 


SSENDAD,§#42 




BNE 


6S 




HALT 




6S: 








RTI 





ERRORsEMT AND N=ERROR ITEM NUMBER 



J TEST FOR CHANGE IN SOFT"SWR 
;SAVE THE STATUS REG. 
;SAVE THE DATA BUFFER 
;R0 WILL CONTAIN THE GOOD DATA 
;R1 WILL CONTAIN THE BAD DATA 

fSET THE ERROR FLAG 

;DON'T LET THE FLAG GO TO ZERO 

{DISPLAY TEST NUMBER AND ERROR FLAG 

jBELL ON ERROR? 

fNO " SKIP 

jRING BELL 

fCOUNT THE NUMBER OF ERRORS 

jGET ADDRESS OF ERROR INSTRUCTION 

jSTRIP AND SAVE THE ERROR ITEM CODE 

JSKIP TYPEOUT IF SET 

J SKIP TYPEOUTS 

J GO TO USER ERROR ROUTINE 



jHALT ON ERROR 

ySKIp IF CONTINUE 

jHALT ON ERRORi 

•TEST FOR CHANGE IN SOFT-SWR 

;L0OP ON ERROR SWITCH SET? 

;BR IF NO 

jFUDGE RETURN FOR LOOPING 
.-CHECK FOR AN ESCAPE ADDRESS 
;BR IF NONE 

; FUDGE RETURN ADDRESS FOR ESCAPE 



; ;ACT-11 AUTO-ACCEPT? 

fjBRANCH IF NO 
; ; YES 
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SEQ 0069 



2365 ;THIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES 



2367 


011676 


104401 


001177 


TYPERR: 


TYPE 


,SCRLF 




; TYPE A CARRIAGE RETURN & LINE FEED 


2368 


011702 


010046 






MOV 


R0,-(SP) 




fSAVE R0 


2369 


011704 


113700 


001114 




MOVB 


@*SITEMBf R0 




;PICKUP THE ITEM INDEX 


2370 


011710 


005300 






DEC 


R0 




: ADJUST THE INDEX 


2371 


011712 


006300 






ASL 


R0 




;S0 IT WILL WORK FOR 


2372 


011714 


006 300 






ASL 


R0 




;THE error TABLE 


2373 


011716 


006 300 






ASL 


R0 






2374 


011720 


062700 


001236 




ADD 


fSERRTBf R0 




J FORM THE TABLE POINTER 


2375 


011724 


012067 


000002 




MOV 


(R0)+rlS 




; PICKUP "ERROR MESSAGE" POINTER 


2376 


011730 


104401 






TYPE 






;TYPE "ERROR MESSAGE" 


2377 


011732 


000000 




1$S 









; "ERROR MESSAGE POINTER" GOES HERE 


2379 


011734 


104401 


001177 




TYPE 


,SCRLF 






2379 


011740 


012067 


000004 




MOV 


(R0)+»2S 




; PICKUP "DATA HEADER" POINTER 


2380 


011744 


001404 






BEQ 


3$ 




; IF "0" DON'T TYPE 


2381 


011746 


104401 






TYPE 






•TYPE "DATA HEADER 


2382 


011750 


000000 




28: 









; "DATA HEADER" POINTER GOES HERE 


2383 


011752 


104401 


001177 




TYPE 


,SCRLF 






2384 


011756 


012000 




3$: 


MOV 


(R0)+,R0 




•PICKUP "DATA POINTER" 


2385 


011760 


001004 






BNE 


S$ 




J IF THERE IS DATA TO TYPE GO DO IT 


2386 


011762 


012600 




4S: 


MOV 


(SP)+,R0 




* RESTORE R0 


2387 


011764 


104401 


001177 




TYPE 


,SCRLF 




•TYPE A CARRAGE RETURN&LINE FEED 


2388 


011770 


000207 






RTS 


PC 




•RETURN 


2389 


011772 






5$l 










2390 


011772 


013046 






MOV 


§(P0)+,-(SP) 


;;SAVE 


|i(R0)+ FOR TYPEOUT 


2391 














; jTYPE 


DATA 


2392 


011774 


104402 






TYPOC 




; ;G0 TYPE--OCTAL ASCIKALL DIGITS) 


2393 


01 1776 


005710 






TST 


(R0) 




J TERMINATOR? 


2394 


012000 


001770 






BEQ 


4$ 




;BR IF YES 


2395 


012002 


104401 


012010 




TYPE 


r6S 




;TYPE 2 SPACES 


2396 


012006 


000771 






BR 


5S 




;LOOP 


2397 


012010 


020040 


000 


6S5 


.ASCIZ 


/ / 




; ASCII STRING OF 2 SPACES 


2398 




012014 






,EVEN 
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ZTAAC.NEW 




ROUTINE TO WAIT 


ON THE 


READY B 


IT TO SET 




2399 








• f »»»»«#»«»*«^*«-*« 


2400 








JROUTINE TO WAIT ON THE READY BIT 




2401 
















2402 


012014 






WAIT. ON, READY: 






2403 


012014 


005067 


000044 




CLR 


WAIT2 


;SETUP MAX, TIME TO WAIT ON "READY" 


2404 


012020 


016767 


000072 000044 




MOV 


MAXCNT, HGHTIM 




2405 


012026 


012637 


001202 




MOV 


(SP)+f P#SAVPC 


;GET THE PC OF THE WAITREADY INSTRUCTION 


2406 


012032 


162737 


000002 001202 




SUB 


»2,3«SAVPC 




2 40 7 


01 2040 


012637 


001204 




MOV 


(SP)+,e#SAVPS 


;SAVE THE PS 


2408 


012044 


032714 


000040 


WAITl : 


BIT 


#READY, PTACS 


;HEADY=1? 


2 409 


012050 


001013 






BNE 


WAIT3 


•GO ON IF YES 


2410 


012052 


105714 






TSTB 


&TACS 


•CHECK TRANSFER REQUEST 


241! 


012054 


100002 






BPL 


WAIT4 




2412 


012056 


104004 






ERROR 


4 


; "TRANSFER REQUEST" SET WHILE WAITING ON "READY" 


241 3 


012060 


000407 






BR 


WAIT3 




2414 


012062 


005227 




WA1T4: 


INC 


(PC J + 


jCOUNT FAST COUNTER 


2415 


012064 


000000 




WAIT2: 









2416 


012066 


001366 






BNE 


WAITl 


;G0 CHECK "READY" AGAIN 


2417 


012070 


005327 






DEC 


(PC) + 


jCOUNT LOOP COUNTER 


2418 


012072 


000000 




HGHTIM: 









2419 


012074 


003363 






BGT 


WAITl 


;G0 LOOP AGAIN 


2420 


012076 


104002 






ERROR 


2 


; "READY" FAILED TO SET 


2421 


012100 


013746 


001204 


WAIT3: 


MOV 


I3»SAVPS,-(SP) 


;GET THE STATUS BACK 


2422 


012104 


013746 


001202 




MOV 


P»SAVPC,-(SP) 


J GET THE PC 


2423 


012110 


062716 


000002 




ADD 


»2, (SP) 




2424 


012114 


000002 






RTI 






2425 


012116 


000000 




MAXCNT: 









2426 
















2427 










2428 








; ROUTINE TO WAIT ON TRANSFER REQUEST 




2429 
















2430 


012120 






WAIT. FOR. XFER.REQ: 




2431 


012120 


005067 


000044 




CLR 


2S 


; SETUP WASTE TIME LOOP 


2432 


012124 


013767 


012116 000044 




MOV 


gIMAXCNT, 38 




2433 


012132 


012637 


001202 




MOV 


(SP)+,@#SAVPC 


;GET THE PC OF THE WAITXFER INSTRUCTION 


2434 


012136 


162737 


000002 001202 




SUB 


»2,ia#SAVPC 




2435 


012144 


012637 


001204 




MOV 


(SP)4-,98SAVPS 


ISAVE THE PS 


2436 


012150 


105714 




IS! 


TSTB 


©TAGS 


;CHECK XFER REQ 


2437 


012152 


100414 






BMI 


4$ 


lEXlT IF SET 


2438 


012154 


032714 


000040 




BIT 


SREADY»§TACS 


ILOOK AT READY 


2439 


012160 


001402 






BEQ 


5S 


;BR IF "READY" ISN'T SET 


2440 


012162 


104004 






ERROR 


4 


f "READY" SET WHILE WAITING FOR "XFER REQ" 


2441 


012164 


000407 






BR 


48 




2442 


012166 


005227 




5$: 


INC 


CPC) + 


jCOUNT 


2443 


012170 


000000 




2SI 









2444 


012172 


001366 






BNE 


IS 


;BR IF MORE TO DO 


2445 


012174 


005327 






DEC 


(PC) + 




2446 


012176 


000000 




3SS 









2447 


012200 


003363 






BGT 


IS 




2448 


012202 


104003 






ERROR 


3 


; "TRANSFER REQUEST" FAILED TO SET 


2449 


012204 


013746 


001204 


4$: 


MOV 


9#SAVPS#-(SP) 


;GET THE STATUS BACK 


2450 


012210 


013746 


001202 




MOV 


?#SAVPCr-(SP) 


;GET THE PC 


2451 


012214 


062716 


000002 




ADD 


#2, (SP) 




2452 


012220 


000002 






RTI 




5 GO BACK 
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DZTAAC.NtW ROUTINE TO WAIT ON TRANSFER REQUEST 



SEQ 0071 



2453 } 
2454 



2455 








.SBTTL 




ROUTINE TO ASK 


THE OPERATOR WHAT DRIVECS) TO TEST 


2456 
















2457 








jCALL 








2458 










asR 


PC, POASKDRV 




2459 
24b0 








1 


RETURN 




J NOTE! R0 AND Rl ARE DESTROYED 


2461 


012222 


104401 


015570 


ASKDRV: 


TYPE 


fMSGDRV 


j<CRLF>"DRIVE(S)? » 


2462 


012226 


005067 


166772 




CLR 


DRVKEY 




2463 


012232 


104410 






ROLIN 




fGO GET A DRIVE 


2464 


012234 


01 2600 






MOV 


(SP)*#R0 


J SETUP TO CHECK FOR VALID DRIVEC 


2465 


012236 


105710 






TSTB 


9R0 


1 WAS A DRIVE SELECTED? 


2466 


012240 


001425 






BEQ 


NOTLGL 


;BR IF NO 


2467 


012242 


01 2701 


001 224 




HOV 


»DRVKEY#R1 




2468 


01 2246 


122710 


000101 


LOOP: 


CMPB 


#'ArPR0 


;WAS DRIVE "A" SELECTED? 


2469 


01 2252 


001002 






BNE 


NOTA 


;BR IF NO 


247i3 


012254 


1 12021 






MOVB 


(R0)+r (Rl )♦ 


;SET KEY FOR DRIVE "A" 


247 1 


012256 


00041 1 






BR 


NEXT 




2472 


012260 


122710 


000102 


NOTA: 


CMPB 


«*BrSR0 


;WAS DRIVE "B" SELECTED? 


2473 


01 2264 


001002 






BNE 


NOTB 


JBR IF NO 


2474 


01 2266 


1 1 2021 






MOVB 


(R0) + » CR1) + 


J SET KEY FOR DRIVE «B" 


2475 


012270 


000404 






BR 


NEXT 




2476 


012272 


122710 


000054 


NOTB: 


CMPB 


S54r 9R0 


J WAS A COMMA TYPED? 


2477 


012276 


001006 






BNE 


NOTLGL 


;BR IF NO 


2478 


01 2300 


105720 






TSTB 


(R0)* 


•DUMP THE COMMA 


2479 


012302 


105710 




NEXT: 


TSTB 


9R0 


1 TERMINATOR? 


2480 


012304 


001406 






BEU 


EXIT 


•BR IF YES 


2481 


012306 


022701 


001226 




CMP 


|DPVKEY+2#Rl 


•TWO DRIVES SELECTED? 


2482 


012312 


101355 






BHI 


LOOP 


?BR IF NO 


2483 


012314 


104401 


001176 


NOTLGL: 


TYPE 


rSOUES 


; ILLEGAL INPUT DETECTED 


2484 


012320 


000740 






BR 


ASKDRV 


;G0 TRY AGAIN 


2485 


012322 


005767 


166676 


EXIT: 


TST 


DRVKEY 


; ANY DRIVE SELECTED? 


2486 


012326 


001772 






BEQ 


NOTLGL 


;BB IF NO 


2487 


012330 


000207 






RTS 


PC 
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2489 














2490 










.SBTTL 


ROUTINE 


TO INPUT CSRrDBR 


, AND 


VECTOR ADDRESS AND PRIORITY 


2491 










fCALL 










2492 










; JSR 


PC, P#ASKADR 






2493 




















2494 


012332 


010046 






ASKADR: 


MOV 


R0,-(SP) 




;SAVE R0 


2495 


012334 


104401 


015603 




1$: 


TYPE 


,M5GASK 




; "TACS?" 


2496 


012340 


104411 








RDOCT 






;GET VALUE 


2497 


012342 


012600 








MOV 


(SP)+,R0 




JPICK UP THE OCTAL NUMBER 


2498 


012344 


001423 








BEO 


3$ 




; IF "0" USE OLD VALUES 


2499 


012346 


020027 


160000 






CMP 


R0, #160000 




jMAKE SURE IT IS A BUS ADDRESS 


2500 


012352 


103770 








BLO 


IS 






2501 


012354 


010037 


001206 






MOV 


R0,@»TACSL 




;SAVE TOE TACS 


2502 


012360 


062700 


000002 






ADD 


#2f R0 




J STEP TO TADB ADDRESS 


2503 


012364 


010037 


001212 






HOV 


R0rJa#TADBL 




;AND SAVE IT 


2504 


012370 


013737 


001206 


001210 




MOV 


P#TACSL,i#TACSH 




;SETUP TACS UPPER 


2505 


012376 


005237 


001210 






INC 


g#TACSH 




;BYTE POINTER 


2506 




















2507 


012402 


013737 


001212 


001214 




MOV 


0#TADBL#g#TADBH 




: SETUP TADB UPPER 


2508 


012410 


005237 


001214 






INC 


g#TADBH 




;BYTE POINTER 


2509 


012414 


1044(91 


015613 




3S: 


TYPE 


,MSGVEC 




; "VECTOR?" 


2510 


012420 


104411 








RDOCT 








2511 


012422 


012600 








MOV 


(SP)+,R0 






2512 


012424 


00141 1 








BEO 


5$ 






2513 


012426 


020027 


001000 






CMP 


R0, 81000 




;MAKE SURE ADDRESS IS IN VECTOR 


251 4 


012432 


103370 








BHIS 


3S 






2515 


012434 


010037 


001216 






MOV 


B0,@#TAVEC 




;SAVE AS VECTOR ADDRESS 


2516 


012440 


062700 


000002 






ADD 


ir2,R0 






2517 


012444 


010037 


001220 






MOV 


R0,0»TAVEC+2 






2518 


012450 


104401 


015623 




5SS 


TYPE 


,MSGPRI 




; ASK FOR PRIORITY 


2519 


012454 


10441 1 








HDOCT 








2520 


012456 


012600 








MOV 


(SP)-f ,R0 






2521 


012460 


001413 








BEO 


6$ 




;IF "0" USE OLD VALUE 


2522 


012462 


020027 


000007 






CMP 


R0,#7 




;MAKE SURE ITS VALID 


2523 


01 2466 


101370 








BHI 


5S 






2524 


01 2470 


000300 








SWAB 


R0 




;PUT INTO HIGH BYTE 


2525 


012472 


006200 








ASR 


R0 




;AND SHIFT 


2526 


012474 


006200 








ASR 


R0 




;INTO PROPER 


2527 


012476 


006200 








ASP 


R0 




{POSITION 


2528 


012500 


042700 


177437 






BIC 


»"C<340>,R0 




JSAVE ONLY PRIORITY BITS 


2529 


012504 


010037 


001222 






MOV 


R0,e#TAPRIO 




; STORE IT AWAY 


2530 


012510 


104401 


015635 




6$ : 


TYPE 


,MTACS 




?TACS=" 


2531 


012514 


016746 


166466 






MOV 


TACSL,«(SP) 


1 JSAVE 


TACSL FOR TYPEOUT 


2532 


012520 


104402 








TYPOC 




: ;G0 TYPE— OCTAL ASCIKALL DIGITS) 


2533 


012522 


104401 


015643 






TYPE 


fMTADB 




f "TADBs" 


2534 


012526 


016746 


166460 






MOV 


TADBL,-(SP) 


; ;SAVE 


TADBL FOR TYPEOUT 


2535 


012532 


104402 








TYPOC 




; ;G0 TYPE— OCTAL ASCIKALL DIGITS) 


2536 


012534 


104401 


015652 






TYPE 


,MTAVEC 




; "VECTORS" 


2537 


012540 


016746 


166452 






MOV 


TAVEC,-(SP) 


; ?SAVE 


TAVEC FOR TYPEOUT 


2538 


012544 


104402 








TYPOC 




a GO TYPE— OCTAL ASCIKALL DIGITS) 


2539 


012546 


104401 


015663 






TYPE 


,MTAPRI 




? "PRIORITYs" 


2540 


012552 


016746 


166444 






MOV 


TAPRIO,-(SP) 


; ;SAVE 


TAPRIO FOR TYPEOUT 


2541 


012556 


104402 








TYPOC 




• •GO TYPE— OCTAL ASCIKALL DIGITS) 


2542 


012560 


104401 


015676 






TYPE 


fMSGOK 




y'OK?" 


2543 


012564 


104407 








RDCHR 






J GO READ ONE CHARACTER 


2544 


012566 


012600 








MOV 


(SP)+,R0 




,-GET IT 
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SEO 0073 



2545 


012570 


022700 


000015 


CMP 


»15,R0 


; IS IT "CR"? 


2546 


01 2574 


001 406 




BEQ 


7 S 


; BRANCH IF YES 


2547 


012576 


022700 


000131 


CMP 


t'Yf R0 


; IS IT "Y"? 


2548 


012602 


001403 




BEQ 


7S 


jiT WAS 


2549 


012604 


104401 


001176 


TYPE 


rSQUES 


yTYPE »?" 


2550 


012610 


000651 




BR 


1$ 


; AND LET HIM CORRECT THEM 


2551 


012612 


104401 


015704 


7$! TYPE 


,MYES 


;TYPE OUT "YES" 


2552 


012616 


012600 




MOV 


(SP)+rR0 


J RESTORE R0 


2553 


012620 


000207 




RTS 


PC 


;AND RETURN 
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2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 



////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60 
NOTE: ### BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 ### 
////////////////////////////////////////////////////////////////////// 



WRITE FILE GAPS FROM "HOT' 
;START AT 220 
jTHIS ROUTINE CAN BE USED 
;THE "WRITE DELAY MONO". 



2568 


012622 


012706 


001100 




WFGSUB; 


MOV 


#STACK,SP 


2569 


012626 


013704 


001206 






MOV 


P#TACSL,TACS 


2570 


012632 


013705 


001212 






MOV 


?#TADBL#TADB 


2571 


012636 


000005 








RESET 




2572 


012640 


012737 


012622 


001 1 10 




MOV 


#WFGSUB,§#$LPERR 


2573 


012646 


004737 


01 3626 






JSR 


PCre#NXTDRV 


2574 


012652 


010314 








MOV 


DRIVE, @TACS 


2575 


012654 


112714 


000017 






MOVB 


#REWINDIGO,0TACS 


2576 


012660 


032714 


000040 




100$: 


BIT 


»READY,PTACS 


2577 


012664 


001775 








BEQ 


100S 


2578 


012666 


112714 


000001 




i$! 


MOVB 


#WFG|GO,§TACS 


2579 


012672 


104412 








WAITREADY 


2580 


012674 


032714 


020000 






BIT 


SLEADER, iTACS 


2581 


012700 


001772 








BEQ 


1$ 


2582 


012702 


000000 








HALT 




2583 


012704 


000746 








BP 


WFGSUB 



2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 



TO "EOT" 

TO ADJUST THE "WRITE GAP MONO" AND 

;KEEP THE STACK OUT OF THE WAY 
;SETUP THE TAll STATUS AND 
JDATA BUFFER REGISTERS 
jRESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 
;G0 SETUP FOR NEXT DRIVE 
jSELECT DRIVE 
jSEND TAPE TO "BOT" 
JWAIT ON READY 

; WRITE A FILE GAP 
JWAIT ON READY 
;AT "CLEAR LEADER"? 
;BR IF NO 
?STOP IF YES 
;LOOP ON CONT, 



WRITE CONTINUOUS BLOCKS OF DATA 
jSTART AT 224 

;THE PROGRAM WILL HALT THREE(3) TIMES 

; AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

;»*»♦ IF USING SOFTWARE SWITCH REGISTER 

; PRESS CONTINUE AND 

; PROGRAM WILL TYPE "SWRrXXXXXX NEWs" 

; AND ALLOW A NEW VALUE TO BE INPUT 

•HALT 1 --- SWR<7 :0> = NUMBER OF BYTES PER BLOCK 
?HALT 2 "-«• SWR<7:0> = PATTERN DESIRED 

;HALT 3 SWR<15:0> = OPERATIONAL SWITCH SETTINGS 

5 THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 



2600 


012706 


004737 


013370 


WRTSUB: 


JSR 


PC,9#SETBUF 


;GET BLOCK SIZE AND PATTERN 


2601 


012712 


012706 


001100 


WLOOP: 


MOV 


#STACK,SP 


;KEEP THE STACK OUT OF THE WAY 


2602 


012716 


013704 


001206 




MOV 


PtTACSLrTACS 


JSETUP THE TAll STATUS AND 


2603 


012722 


013705 


001212 




MOV 


P#TADBLrTADB 


;DATA BUFFER REGISTERS 


2604 


012726 


000005 






RESET 




J RESET THE WORLD 


2605 


012730 


012737 


012712 


001110 


MOV 


iWLOOPr^^^SLPERR 


; SETUP THE LOOP ON ERROR ADDRESS 


2606 


012736 


004737 


013626 




JSR 


PC,?#NXTDRV 


;G0 SETUP FOR NEXT DRIVE 


2607 


012742 


010314 






MOV 


DRIVE, 9TACS 


; SELECT DRIVE 


2608 


012744 


112714 


000017 




MOVB 


#REWINDIGO,aTACS 


JSEND TAPE TO "BOT" 


2609 


012750 


032714 


000040 


100$: 


BIT 


»READY,eTACS 


; WAIT ON READY 
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2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 



012754 
012756 
012762 



012766 001773 
012770 000000 
012772 000747 



001775 

004737 013504 
032714 020000 



012774 
013000 
013004 
013010 
013012 
013020 
013024 
013026 
013032 
013036 
013040 
01 3044 
01 3050 
013052 



y!3054 
013060 
013064 
013070 
013074 
013076 



012706 
013704 
013705 



012737 
004737 
010314 
1 12714 
032714 
001775 
004737 
032714 
001351 
000772 



004737 
012706 
013704 
013705 
000005 
012737 



013104 004737 
013110 010314 



013112 
013116 



112714 

032714 



001 100 
001206 
001212 

012774 
013626 

000017 

000040 

013546 
020000 



013122 001 775 



013370 
001 100 
001206 
001212 

013060 
013626 

000017 
000040 



001110 



WGPBLKs 
WGBLOP! 



001110 



BEG 

JSR 

BIT 

BEQ 

HALT 

BR 



100S 

PC,§#WRTBLK 

#LEADER,9TACS 

IS 

WLOOP 



yWRITE A BLOCK 
;AT "CLEAR LEADER"? 
JBR IF NO 
JSTOP IF "EOT" 
;LOOP IF CONT. 



READ CONTINUOUS BLOCKS OF DATA 
;START AT 230 

jTHIS ROUTINE CAN BE USED TO ADJUST THE 
?AND THE "THRESHOLD POT", 



'SIGNAL MONO" 



MOV 

MOV 

MOV 

RESET 

MOV 

JSR 

MOV 

MOVB 

BIT 

BEQ 

JSR 

BIT 

BNE 

BR 



#STACK,SP 
9#TACSL,TACS 
PSTADBL,TADB 

#RDSUB/§#$LPERR 

PC,9#NXTDRV 

DRIVE, 9TACS 

#RLWINDlGO,gTACS 

#READ¥,@TACS 

100S 

PC#9»RDBLK 

#LEADER,eTACS 

RDSUB 

IS 



;KEEP THE STACK OUT OF THE WAY 
•SETUP THE TAll STATUS AND 
;DATA BUFFER REGISTERS 
; RESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 
;G0 SETUP FOR NEXT DRIVE 
;SELECT DRIVE 
;SEND TAPE TO "BOT" 
,«WAIT ON READY 

;READ A BLOCK 

;AT "CLEAR LEADER"? 

JBR IF YES»— LOOP 



WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 
; START AT 234 

;THE PROGRAM WILL HALT THREE(3) TIMES 

; AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

;♦*** IF USING SOFTWARE SWITCH REGISTER 

; PRESS CONTINUE AND 

; PROGRAM WILL TYPE "SWRsXXXXXX NEW=" 

; AND ALLOW A NEW VALUE TO BE INPUT 

jHALT 1 — - SWR<7!0> = NUMBER OF BYTES PER BLOCK 

;HALT 2 SWR<7!0> = PATTERN DESIRED 

JHALT 3 SWR<15:0> = OPERATIONAL SWITCH SETTINGS 

JTHIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" 
jAND THE "GAP TIME MONO". 



JSP 

MOV 

MOV 

MOV 

RESET 

MOV 

JSR 

MOV 

MOVB 

BIT 

BEQ 



PC,e#SETBUF 
rSTACK,SP 
§#TACSL,TACS 
gSTADBL, TADB 

lfWGBLOP,e#SLPERR 

PC,g»NXTDRV 

DRIVE, ?TACS 

#REWINDJGO,PTACS 

#READY,?TACS 

100$ 



;GET BLOCK SIZE AND PATTERN 
jKEEP THE STACK OUT OF THE WAY 
;SETUP THE TAU STATUS AND 
;DATA BUFFER REGISTERS 
; RESET THE WORLD 

I SETUP THE LOOP ON ERROR ADDRESS 
;G0 SETUP FOR NEXT DRIVE 
JSELECT DRIVE 
;SEND TAPE TO "BOT" 
jWAIT ON READY 



TAU BASIC LOGIC TEST (PART 1) 
DZTAAC.NEW WRITE A 
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2666 


013124 


1 12714 


000001 


IS: 


MOVB 


#WFG1G0,PTACS 


;WRITE A FILE GAP 


2667 


013130 


104412 






WAITREADY 


; WAIT ON READY 


2668 


01 31 32 


032714 


020000 




BIT 


#LEADER,9TACS 


;AT "CLEAR LEADER"? 


2669 


0131 3b 


001005 






BNE 


2S 


;BR IF YES 


2670 


01 3140 


004737 


01 3504 




JSR 


PC, P#WRTBLK 


jWRITE A BLOCK 


2671 


0131 44 


032714 


020000 




BIT 


#LEADER,§TACS 


; AT "CLEAR LEADER"? 


2672 


013150 


001765 






BEQ 


1$ 


I BR IF NO 


2673 


013152 


000000 




2$: 


HALT 




jSTOP AT "EOT" 


2674 


013154 


000741 






BR 


WGBLOP 


; START OVER ON CONT. 



2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 



2707 
2708 
2709 
2710 
271 I 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 



; READ A BLOCK OF DATA AND A FILE GAP 

; START AT 240 

•THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP" ROUTINE 
; IT CAN BE USED TO ADJUST THE "SIGNAL MONO" , THE THRESHOLD POT" 
; AND THE "TAPE BLANK MONO" . 



2684 


01 3156 


012706 


001 100 RGPBLK: 


MOV 


g5TACK,SP 


;KEEP THE STACK OUT OF THE 


2685 


013162 


013704 


001206 


MOV 


P»TACSL,TACS 


; SETUP THE TAU STATUS AND 


2686 


013166 


01 3705 


001212 


MOV 


g#TADBL, TADB 


;DATA BUFFER REGISTERS 


2687 


013172 


000005 




RESET 




; RESET THE WORLD 


26 8 8 


013174 


012737 


013156 001110 


MOV 


»RGPBLK,g#SLPERR 


; SETUP THE LOOP ON 


2689 


01 3202 


004737 


013626 


JSR 


PC,g#NXTDRV 


jGO SETUP FOR NEXT DRIVE 


2690 


013206 


010314 




MOV 


DRIVE, gTACS 


^SELECT DRIVE 


2691 


013210 


112714 


000017 


MOVB 


iREWINDiGO, gTACS 


;SEND TAPE TO "BOT" 


2692 


013214 


032714 


000040 100S : 


BIT 


»READif,PTACS 


; WAIT ON READY 


2693 


013220 


001775 




BEQ 


100$ 




2694 


013222 


004737 


013546 IS: 


JSR 


PCPtRDBLK 


;READ A BLOCK OF DATA 


2695 


013226 


032714 


020000 


BIT 


#LEADER,§TACS 


;AT "CLEAR LEADER"? 


2696 


01 3232 


001 351 




BNE 


RGPBLK 


jBR IF YES 


2697 


013234 


112714 


000015 


MOVB 


»SFBG!GO, PTACS 


;GET INTO A FILE GAP 


2698 


01 3240 


104412 




WAITREADY 




2699 


013242 


032714 


020000 


BIT 


SLEADER, ?TACS 


;AT "CLEAR LEADER"? 


2700 


013246 


001343 




BNE 


RGPBLK 


;BR IF YES 


2701 


013250 


000764 




BP 


IS 


;LOOP 


2702 














2703 














2704 














2705 








SPACE 


FORWARD FILE GAP FROM 


"BOT" TO "EOT" 


2706 








; START 


AT 244 





jTHIS ROUTINE CAN BE USED AFTER "WRITE FILE GAP" FOR LOW SPEED 
; SPACE FOWARD (TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR 
J WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
; (SIGNAL MONO CAN BE CHECKED) . 

; •»»#»»*»»»»»«»*»*»»«»»»«»»*«««»*»««»»*«»»»*»»»«»■»»*«■»*»•*»•»»#■»«■»« 



013252 


012706 


00U00 


SFFGSB: 


MOV 


#STACK,SP 


jKEEP THE STACK OUT OF THE 


WAY 


013256 


013704 


001206 




MOV 


i#TACSL,TACS 


; SETUP THE TAU STATUS AND 




013262 


013705 


001212 




MOV 


?#TADBL,TADB 


jDATA BUFFER REGISTERS 




013266 


000005 






RESET 




; RESET THE WORLD 




01 3270 


012737 


013252 001110 




MOV 


«SFFGSB,§#$LPERR 


; SETUP THE LOOP ON 


ERROR 


013276 


004737 


013626 




JSR 


PC,§#NXTDRV 


;G0 SETUP FOR NEXT DRIVE 




013302 


010314 






MOV 


DRIVE, §TACS 


; SELECT DRIVE 




013304 


112714 


000017 




MOVB 


»REW1ND1G0, PTACS 


;SEND TAPE TO "BOT" 




013310 


032714 


000040 


100$; 


BIT 


#READY,?TACS 


; WAIT ON READY 




013314 


001775 






BEQ 


100$ 
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SEQ 0077 



2723 


013316 


112714 


0000 1 3 


272 3 


013322 


104412 




2724 


013324 


032714 


020000 


2725 


013330 


001 772 




2726 


013332 






2727 


013334 


000746 




2728 








2729 








27 30 








27 Jl 








2732 








2733 








2734 








2735 


01 3336 


000005 




2736 


013340 


012737 


013336 


2737 


013346 


010314 




2738 


0133S0 


112714 


000007 


2739 


013354 


104412 




2740 


01 3356 


032714 


020000 


2741 


013362 


001772 




2742 


013364 


000000 




2743 


013366 


000763 




2744 








2745 








2746 








2747 








2748 








2749 


013370 


005000 




2750 


01 3372 


000000 




2751 


013374 


022767 


000176 


2752 


01 3402 


001001 




2753 


013404 


104405 




2754 


013406 






2755 


01 3406 


157700 


165526 


2756 


013412 


001006 




2757 


013414 


1 05777 


165521 


2758 


013420 


001402 




2759 


013422 


012700 


000376 


2760 


01 3426 


005200 




2761 


01 3430 


010037 


01 3500 


2762 


013434 


005037 


013502 


2763 


01 3440 


000000 




2764 


013442 


022767 


000176 


2765 


013450 


001001 




2766 


013452 


104405 




2767 


013454 






2768 


01 3454 


117737 


165460 


2769 


013 462 


000000 




2770 


01 3464 


022767 


000 176 


2771 


013472 


001001 




2772 


013474 


104405 




2773 


013476 






2774 


013476 


000207 




2775 


013500 


000000 




2776 


013502 


000000 




2777 









MOVB «SFFG1G0,9TACS 
WAITREADY 

BIT ILEA0ER,9TACS 

BEQ i$ 
HALT 

BR SFFGSB 



; SPACE INTO A FILE GAP 

;WAIT ON READY 

?AT "CLEAR LEADER"? 

;BR IF NO 

J STOP AT "EOT« 

jLOOP ON CONT. 



y BACK SPACE FILE GAP 

jSTART AT 250 

jTHIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO" 



BSFGSB: RESET 

MOV 



»BSFGSB,&#SLPERR 
MOV DRIVE, 8TACS 

MOVB »BSFG!G0,9TACS 

WAITREADY 

BIT 8LEADER,9TACS 

BEQ 18 

HALT 

BR BSFGSB 



; RESET THE WORLD 

iLOOP ON ERROR ADDRESS 
> SELECT DRIVE 
JBACK SPACE A FILE GAP 
JWAIT ON READY 
jAT "CLEAR LEADER"? 
JBR IF NO 
I STOP AT BOT 
START OVER ON CONT, 



; SETUP BLOCK SIZE AND PATTERN FOR SUBROUTINES 



1$: 
2SS 



CLR 


R0 






HALT 




^OPERATOR PUTS BYTE COUNT 


IN SWR<7|0> 


CMP 


«SWR£G,SWR 


J SOFTWARE SWITCH PEG.? 




BNE 


20$ 


; NO-LET HIM BE 




GTSWR 




J GET NEW VALUE 

fCONTINUE 




BISB 


@SWR,R0 


jPICKUP THE BYTE COUNT 




BNE 


2$ 


;BR IF NON-ZERO 




TSTB 




yCHECK IF GREATER THAN 377 




BEQ 


is 


;BR IF NO 




MOV 


#376, R0 


;SET FOR MAX ALLOWED 




INC 


R0 


;MAKE IT 377 OR 1 




MOV 


R0,(a»BLKLIH 


; SETUP THE BLOCK LIMIT 




CLR 


0»PATTRN 






HALT 




jOpERATOR PUTS PATTERN IN 


SWR<7:0> 


CMP 


»SWREG,SWR 


; SOFTWARE SWITCH REG,? 




BNE 


21S 


; NO-LET HIM BE 




GTSWR 




;GET NEW VALUE 

^CONTINUE 




MOVB 


9SWP/ PIPATTRN 


;PICK UP THE PATTERN 




HALT 




;SET OPERATIONAL SWITCHES 




CMP 


#SWREG,SWR 


; SOFTWARE SWITCH REG,? 




BNE 


22S 


;NO-LET HIM BE 




GTSWR 




;GET NEW VALUE 
fCONTINUE 




RTS 


PC 


{RETURN 





BLKUMi 
PATTRNj 



READ AND WRITE BLOCK SIZE 
PATTERN TO GO ON THE TAPE 
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2778 






2779 






2780 






2781 






2782 


013504 


013701 


2783 


013510 


1 12714 


2784 


013514 


104413 


2785 


013516 


032714 


2786 


013522 


001010 


2787 


01 3524 


005301 


2788 


013526 


002403 


2789 


013530 


113715 


2790 


013534 


000767 


2791 


013536 


052714 


2792 


013542 


104412 


2793 


013544 


000207 


2794 






2795 






2796 






2797 






2798 






2799 


013546 


013702 


2800 


013552 


013700 


2801 


0135S6 


112714 


2802 


013562 


104413 


2803 


013564 


032714 


2804 


013570 


001012 


2805 


013572 


005302 


2806 


013574 


002405 


2807 


013576 


011501 


2808 


013600 


120001 


2809 


013602 


001767 


2810 


013604 


104007 


2811 


013606 


000406 


2812 


013610 


052714 


2813 


013614 


104412 


2814 


013616 


005714 


2815 


013620 


100001 


2616 


013622 


104001 


2817 


013624 


000207 


2818 






2819 






2820 






2821 






2822 


013626 


105777 


2823 


013632 


100416 


2824 


013634 


005003 


2825 


013636 


013701 


2826 


013642 


122127 


2827 


013646 


001402 


2828 


013650 


012703 


2829 


013654 


105711 


2830 


013656 


001002 


2831 


013660 


012701 


2832 


013664 


010137 


2833 


013670 


000207 



013500 
53 



WPTBLK: 



WRITE ROUTINE FOR THE MANUAL OPERATIONS 



MOV @#BLKLIM,R1 
MOVB #WRITE}GO,§TACS 
WAITXFER 



2$: 
3SS 



rdblk: 



BIT 

BNE 

DEC 

BLT 

MOVB 

BR 

BIS 



»READY#0TACS 

3S 
PI 
2S 

g#PATTRN,PTADB 

IS 

SILBS,§TACS 



013502 
000005 



WAITREADY 

RTS PC 



READ ROUTINE FOR THE MANUAL 

MOV 0#BLKHM,R2 
MOV @#PATTRN,R0 
MOVB «READ* GO,0TACS 
WAITXFER 



2$t 
3$: 



BIT 

BNE 

DEC 

BLT 

MOV 

CMPB 

BEQ 

ERROR 

BR 

BIS 



SREADY* §TACS 

3$ 

R2 

2$ 

@TADBrRl 

R0,R1 

IS 

7 

4$ 

SiLBSriTACS 



WAITREADY 
TST PTACS 
BPL 4$ 
ERROR 1 
RTS PC 



; PICKUP THE BLOCK SIZE 

; START A WRITE 

jWAIT ON TRANSFER REQUEST 

;DID READY SET? 

;BR IF YES 

jCOUNT THIS REQUEST 

;BR IF TIME FOR ILBS 

;PUT DATA ON TAPE 

J LOOP 

; WRITE CRC AND SHUT DOWN 
; WAIT ON THE READY FLAG 



OPERATIONS 

PICKUP THE BLOCK SIZE 

USE THIS DATA PATTERN TO COMPARE TO 
START A READ 

WAIT ON TRANSFER REQUEST 
IS READY SET? 

BR IF YES 

COUNT THIS REQUEST 
BR IF TIME FOR ILBS 
READ THE DATA BUFFER 
CHECK THE DATA 
BR IF OK 
BAD DATA 
GET OUT 
READ ILBS 
WAIT ON READY 
;CHECK FOR ERROR 
;BR IF NONE 
; ERROR OCCURRED 
f RETURN 



• ROUTINE TO CHANGE DRIVES 



001230 
000101 



ass 

3$: 



TSTB 


9SWR 


;IS SW07 ON A (1)? 


BMI 


3S 


;BR IF YES 


CLR 


DRIVE 


;SET DRIVE TO "A" 


MOV 


P»DRVPNT,R1 


;GET DRIVE POINTER 


CMPB 


(R1)+,»'A 


;IS IT DRIVE "A"? 


BEQ 


IS 


jBR IF YES 


MOV 


#UNITf DRIVE 


;SET DRIVE TO "B" 


TSTB 


(Rl) 


jLAST DRIVE BEEN SELECTED 


BNE 


2$ 


;BR IF NO 


MOV 


»DRVKEY,R1 


jRESET DRIVE POINTER 


MOV 


R1,0#DRVPNT 


jSAVE DRIVE POINTER FOR NEXT 


RTS 


PC 


;G0 BACK 
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SEQ 0079 



2834 










» 1 


2835 
2836 










SBTTL 




BOUTIi*JE TO EXAMINE 


DRIVECS) FOR AVAILABLITY 


2837 
3838 


















2839 










I 


MOV 






2840 










1 


JSR 


PC» @#EXAM 


jRl IS DESTROYED 


284! 










1 


NORMA J 


DlTf !IRN 




2842 












ITDDAD 


DFTIIRN 




2843 


















2844 


013672 


013701 


001206 




EXa I 








2845 


013676 


005011 














2846 


013700 


122710 


000101 








# * A f ( R0 ) 




2847 


013704 


001402 








WFO 






2848 


013706 


052711 


000400 






BTS 


allNTT. f 81 1 


'SELECT DRIVE ^B" 


2849 


013712 


032711 


000040 




1 § ! 


RTT 


S nfcwi.' S f % r%l J 


•W4IT ON READY 


28S0 


013716 


001775 








RPO 






2851 


013720 


005711 








T«T 


r R1 1 


f &M V t'DRfiR? 


2852 


013722 


100024 








BDt 


4$ 


J on ir WW 


2851 


013724 


032711 


001000 






RTT 


aOFFMNF . roll 


;ERROR DUE TO "OFF LINE*'? 


2854 


013730 


001017 








hNP- 


3S 


|Dr\ xr 


2855 


013732 


032711 


010000 






BIT 






28S6 


013736 


001411 








BEQ 


2S 


}BR IF NO 


2857 


013740 


122777 


000201 


165172 




CMPB 


|BIT07iBIT00,9SWR 


; "READONLY" SELECTED? (RDIPAS) 


28S8 


013746 


001412 








BEQ 


4$ 


JBR IF YES 


2859 


013750 


122777 


000203 


165162 




CMPB 


#BlT07iBlT0i JBIT00 


iSWR f(RD2PAS)| 


2860 


013756 


001406 








BEQ 


40 


jBR IF YES 


2861 


013760 


000403 








BR 


3S 


jTAKE THE ERROR EXIT 


2862 


013762 


032711 


020000 




2S: 


BIT 


»LEADEBr CRl) 


jERROR DUE TO "CLEAR LEADER"? 


2863 


013766 


001002 








BNL 


4S 


?BR IF YES 


2864 


013770 


062716 


000002 




3S! 


ADD 


(SP) 


;TAKE ERROR RETURN 


2865 


013774 


000207 






4SI 


RTS 


PC 


; RETURN 



RE6» ADR« 



TAll BASIC LOGIC TEST (PART 1 ) 
DZTAAC.NEW TYPE ROUTINE 



MAINDEC-ll-DZTAA-C 



MACYll 27(732) ll-JUN-76 15:15 PAGE 66 



2866 
2867 
2868 

2869 
2870 
2871 

2872 
2873 
2874 
2875 
2876 



.SBTTL TYPE ROUTINE 

ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 

THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 

NOTEl } SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

N0TE3 : 8FILLC CONTAINS THE CHARACTER TO FILL AFTER, 



tCALL: 
n) USING 



A TRAP INSTRUCTION 



2877 








• « 


TYPE 


,MESADR 


2878 








;»0R 






2879 








J * 


TYPE 




2880 








;* 


ME5ADR 




2881 








• « 






2882 














2883 


01377b 


105767 


165155 


STYPE: 


TSTB 


STPFLG 


2884 


014002 


100002 






BPL 


IS 


2885 


014004 


000000 






HALT 




2886 


014006 


000407 






BR 


3S 


2887 


014010 


010046 




ISS 


MOV 


R0r-(SP) 


2888 


014012 


017600 


000002 




MOV 


02(SP) ,R0 


2889 


014016 


112046 




2S; 


MOVB 


(R0)+,-(SP) 


2890 


014020 


001005 






BNE 


4$ 


2891 


014022 


005726 






TST 


CSP) + 


2892 


014024 


012600 




60SS 


MOV 


(SP)+,R0 


2893 


014026 


062716 


000002 


3s: 


ADD 


92, (SP) 


2894 


014032 


000002 






RTI 




2895 


014034 


122716 


00001 1 


4$: 


CMPB 


#HT, (SP) 


2896 


014040 


001430 






BEQ 


8S 


2897 


014042 


122716 


000200 




CMPB 


tCRLF, CSP) 


2898 


014046 


001006 






BNE 


5$ 


2899 


014050 


005726 






TST 


(SP) + 


2900 


014052 


104401 






TYPE 




2901 


014054 


001177 






SCRLF 




2902 


014056 


105067 


000130 




CLRB 


SCHARCNT 


2903 


014062 


000755 






BR 


2S 


2904 


014064 


004767 


000056 


5S5 


JSR 


PCSTYPEC 


2905 


014070 


126726 


165062 


6S: 


CMPB 


SFILLC, (SP)4. 


2906 


014074 


001 350 






BNE 


2$ 


2907 


014076 


016746 


165052 




MOV 


SNULL, -(SP) 


2908 














2909 


014102 


105366 


000001 


7SS 


OECB 


l(SP) 


2910 


014106 


002770 






BLT 


6S 


2911 


014110 


004767 


000032 




JSR 


PCSTYPEC 


2912 


014114 


105367 


000072 




DECB 


SCHARCNT 


2913 


014120 


000770 






BR 


7S 


2914 














2915 








; HORIZONTAL TAB 


PROCESSOR 


2916 














2917 


014122 


112716 


000040 


8S: 


MOVB 


9' , (SP) 


2918 


014126 


004767 


000014 


9$: 


JSR 


PCSTYPEC 


2919 


014132 


132767 


000007 6 


500052 


BITS 


«7, SCHARCNT 


2920 


014140 


001372 






BNE 


9$ 


2921 


014142 


005726 






TST 


(SP)*- 



; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;IS THERE A TERMINAL? 
;BR IF YES 

;HALT HERE IF NO TERMINAL 

JLEAVE 

ySAVE R0 

;GET ADDRESS OF ASCIZ STRING 

jPUSH CHARACTER TO BE TYPED ONTO STACK 

;BR IF IT ISN'T THE TERMINATOR 

; IF TERMINATOR POP IT OFF THE STACK 

JRESTORE R0 

J ADJUST RETURN PC 

; RETURN 

; BRANCH IF <HT> 

; {BRANCH IF NOT <CRLF> 

llPOP <CR><LF> EOUIV 
I? TYPE A CR AND LF 

; ;CLEAR CHARACTER COUNT 

; ;GET NEXT CHARACTER 

; ;G0 TYPE THIS CHARACTER 

; ;IS IT TIME FOR FILLER CHARS.? 

; J IF NO GO GET NEXT CHAR. 

; ;GET « OF FILLER CHARS. NEEDED 

HAND THE NULL CHAR. 

; TDOES a null NEED TO BE TYPED? 

; ;BR IF NO— GO POP THE NULL OFF OF STACK 

; ;G0 TYPE A NULL 

MDO not count as a COUNT 

; JLOOP 



; {REPLACE TAB WITH SPACE 

; I TYPE A SPACE 

; {BRANCH IF NOT AT 

{ {TAB STOP 

; {POP SPACE OFF STACK 
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SEQ 0081 



2922 


014144 


000724 








BR 


2$ 


IJGET NEXT CHARACTER 


2923 


014146 


105777 


164776 




STYPEC: 


TSTB 


§STPS 


f f WAIT UNTIL PRINTER IS READY 


2924 


014152 


100375 








BPL 


STYPEC 




2925 


014154 


1 16677 


000002 


164770 




MOVB 


2(SP),f»$TPB 


|?LOAD CHAR TO BE TYPED INTO DATA REG, 


2926 


014162 


122766 


000015 


000002 




CMPB 


#CR,2(SP) 


j;IS CHARACTER A CARRIAGE RETURN? 


2927 


014170 


001003 








BNE 


1$ 


'BRANCH IF NO 


2928 


014172 


105067 


000014 






CLRB 


SCHARCNT 


J ;YES— CLEAR CHARACTER COUNT 


2929 


014176 


000406 








BR 


STYPEX 


J JEXXT 


2930 


014200 


122766 


000012 


000002 


1$? 


CMPB 


#LF,2(SP) 


; JIS CHARACTER A LINE FEED? 


2931 


014206 


001402 








BEO 


STYPEX 


jjBRANCH IF YES 


2932 


014210 


105227 








INCB 


(PC)* 


; ;COUNT THE CHARACTER 


2933 


014212 


000000 






SCHARCNT: .WORD 





; ;CHARACTER COUNT STORAGE 


2934 


014214 


000207 






STYPEXs 


RTS 


PC 




2935 


















2936 










.SBTTL 


READ AN 


OCTAL NUMBER 


FROM THE TTY 


2937 


















2938 










• • *«**»«»*«»»»#*«»#«#«^^«*«.««##»# 


2939 










;«THIS 


ROUTINE 


WILL READ AN 


OCTAL (ASCII) NUMBER FROM THE TTY AND 


2940 










;#CHANGE IT TO 


BINARY , 




2941 










. ■scALL : 








2942 










• » 


RDOCT 




•jREAD an octal NUMBER 


2943 












RETURN 


HERE 


••LOW ORDFR RIT<; ^RF nw TOD DF THF "sTarif 


2944 
















; ; HIGH ORDER BITS ARE IN SHIOCT 


2945 
















2946 


014216 


01 1646 






SRDOCT: 


MOV 


(SP) f -(SP) 


f jPROVIDE SPACE FOR THE 


2947 


014220 


016666 


000004 


000002 




MOV 


4( SP) ,2(SP) 


; J INPUT NUMBER 


2948 


014226 


010046 








MOV 


R0r -(SP) 


;;PUSH R0 ON STACK 


2949 


014230 


010146 








MOV 


R1,-(SP) 


• • PUSH R 1 ON STACK 


2950 


014232 


010246 








MOV 


R2,«(SP) 


• • PUSH R2 ON STACK 


2951 


014234 


104410 






iss 


RDLIN 




••READ AN ASCIE LINE 


2952 


014236 


012600 








MOV 


(SP)+,B0 


;;GET ADDRESS OF 1ST CHARACTER 


2953 


014240 


005001 








CLR 


Rl 


; jCLEAR DATA WORD 


2954 


014242 


005002 








CLR 


R2 




2955 


014244 


112046 






2$! 


MOVB 


(R0)+,"(SP) 


;;PICKUP THIS CHARACTER 


2956 


014246 


001412 








BEQ 


3S 


; ; IF ZERO GET OUT 


2957 


014250 


006301 








ASL 


Ri 


; ?*2 


2958 


014252 


006102 








ROL 


R2 




2959 


014254 


006301 








ASL 


Rl 


; • »4 


2960 


014256 


006102 








POL 


R2 




2961 


01 4260 


006301 








ASL 


Rl 


J»8 


2962 


014262 


006102 








ROL 


R2 




2963 


014264 


042716 


177770 






BIC 


#"C7, (SP) 


; ;STRIP THE ASCII JUNK 


2964 


014270 


062601 








ADD 


(SP)+,R1 


; ; ADD IN THIS DIGIT 


2965 


014272 


000764 








BR 


2S 


; jLOOP 


2966 


014274 


005726 






3$: 


TST 


(SP) + 


; ;CLEAN TERMINATOR FROM STACK 


2967 


01 4276 


010166 


000012 






MOV 


Rl » 12(SP) 


; ;SAVE THE RESULT 


2968 


014302 


010267 


000010 






MOV 


R2, SHIOCT 




2969 


01 4306 


012602 








MOV 


(SP)+,R2 


; ;POp STACK INTO R2 


2970 


01 4310 


012601 








MOV 


(SP)+,R1 


; ;POP STACK INTO Rl 


2971 


014312 


012600 








MOV 


(SPj*,R0 


;;P0P STACK INTO R0 


2972 


014314 


000002 








RTI 




; ; RETURN 


2973 


014316 


000000 






SHIOCT: 


.WORD 





fjHIGH ORDER BITS GO HERE 


2974 










.SBTTL 


TTY INPUT ROUTINE 




2975 


















2976 


















2977 










.ENABL 


LSB 
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2978 


















2979 


















2980 










;#SOFTWRRE SWITCH REGISTER CHANGE ROUTINE. 


2981 










•♦ROUTINE IS 


ENTERED FROM THE TRAP HANDLER, AND WILL 


2982 










;«SERVICE THE 


TEST FOR CHANGE IN 


SOFTWARE SWITCH REGISTER TRAP CALL 


2983 










;*WHEN 


OPERATING IN TTY FLAG MODE. 


2984 


014320 


022767 


000176 


164612 


SCKSWR: 


CMP 


#SWREG,SWR 5 


; IS THE SOFT-SWR SELECTED? 


2985 


014326 


001074 








BNE 


15S 


JBRANCH IF NO 


2986 


014330 


105777 


164610 






TSTB 


eSTKS 


jCHAR THERE? 


2987 


014334 


100071 








BPL 


15S 


; IF NO, DON'T WAIT AROUND 


2988 


014336 


1 17746 


164604 






MOVB 


PSTKB,-(SP) 


JSAVE THE CHAR 


2989 


014342 


042716 


177600 






BIC 


t*C177, (SP) 


;STRIP-OFF THE ASCII 


2990 


014346 


022726 


000007 






CMP 


•7, (SP)+ 


;1S IT A CONTROL G? 


2991 


014352 


001062 








BNL 


15S 


JNO, RETURN TO USER 


2992 


01 4354 


126727 


164554 


000001 




CMPB 


SAUTOB, 11 


; ARE WE RUNNING IN AUTO-MODE? 


2993 


014362 


001456 








BEQ 


155 


jBRANCH IF YES 


2994 


















2995 


014364 


104401 


015045 






TYPE 


, SCNTLG 


;ECHO THE CONTROL-G ("G) 


2996 


014370 


104401 


015052 




SGTSWR: 


TYPE 


,SMSWR 


jTYPE CURRENT CONTENTS 


2997 


014374 


016746 


163576 






MOV 


SWREG, -(SP) 


jSAVE SWREG FOR TYPEOUT 


2998 


014400 


104402 








TYPOC 




;G0 TYPE--OCTAL ASCIKALL DIGITS) 


2999 


014402 


104401 


015063 






TYPE 


, SMNEW 


; PROMPT FOR NEW SWR 


3000 


014406 


005046 






19s: 


CLR 


-(SP) 


;CLEAR COUNTER 


3001 


014410 


005046 








CLR 


-(SP) 


jTHE NEW SWR 


3002 


014412 


105777 


164526 




7S! 


TSTB 


§STKS 


;CHAR THERE? 


3003 


014416 


100375 








BPL 


75 


; IF NOT TRY AGAIN 


3004 


















3005 


014420 


117746 


164522 






MOVB 


gSTKB, -(SP) 


JPICK UP CHAR 


3006 


014424 


042716 


177600 






BIC 


t"C177, (SP) 


jMAKE IT 7-BIT ASCII 


3007 


















3008 


















3009 


















3010 


014430 


021627 


000025 




9SS 


CMP 


(SP) , If25 


; IS IT A CONTROL-U? 


301 1 


014434 


001005 








BNE 


10S 


•BRANCH IF NOT 


3012 


014436 


104401 


015040 






TYPE 


,SCNTLU ; > YES, ECHO CONTROL-U ("U) 


3013 


014442 


062706 


000006 




20$: 


ADD 


«6,SP 


• ; IGNORE PREVIOUS INPUT 


3014 


014446 


000757 








BR 


19S 


• ? LET'S TRY IT AGAIN 


3015 


















3016 


















3017 


014450 


021627 


000015 




10S: 


CMP 


(SP) , S15 


• ;IS IT A <CR>? 


3018 


014454 


001022 








BNE 


16$ 


•BRANCH IF NO 


3019 


014456 


005766 


000004 






TST 


4(SP) 


;YES, IS IT THE FIRST CHAR? 


3020 


014462 


001403 








BEO 


lis 


JBRANCH IF YES 


3021 


014464 


016677 


000002 


164446 




MOV 


2(SP),§SWR 


;SAVE NEW SWR 


3022 


014472 


062706 


000006 




lis: 


ADD 


«6,SP 


;CLEAR UP STACK 


3023 


014476 


104401 


001177 




14$: 


TYPE 


,$CRLF 


jECHO <CR> AND <LF> 


3024 


014502 


126727 


164427 


000001 




CMPB 


SINTAG, »1 


; RE-ENABLE TTY KBD INTERRUPTS? 


3025 


014510 


001003 








BNE 


15$ 


JBRANCH IF NOT 


3026 


014512 


012777 


000100 


164424 




MOV 


#100,?STKS 


; RE-ENABLE TTY KBD INTERRUPTS 


3027 


014520 


000002 






15s: 


RTI 




RETURN 


3028 


014522 


004767 


177420 




16$: 


JSR 


PC, STYPEC 


;ECHO CHAR 


3029 


014526 


021627 


000060 






CMP 


(SP) , #60 


jCHAR < 0? 


3030 


014532 


002420 








BLT 


iss 


JBRANCH IF YES 


3031 


014534 


021627 


000067 






CMP 


(SP), #67 


jCHAR > 7? 


3032 


014540 


003015 








BGT 


18S 


JBRANCH IF YES 


3033 


014542 


042726 


000060 






BIC 


#60, (SP)+ 


• JSTRIP-OFF ASCII 
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SEQ 0083 



3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 



3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 



014546 
014552 
014554 
014556 
014560 
014562 
014566 
014572 
014574 
014600 



005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



TST 
BEQ 
ASL 
ASL 
ASL 
INC 
BIS 
BR 

TYPE 

BR 

LSB 



2(SP) 

17S 

(SP) 

(SP) 

(SP) 

2(SP) 

-2(SP) , (SP) 
7S 

rSQUES 
20S 



; ;IS THIS THE FIRST CHAR 
WBRANCH IF YES 

;NOr SHIFT PRESENT 

; CHAR OVER TO HAKE 
ROOM FOR NEW ONE, 

;KEEP COUNT OF CHAR 

ySET IN NEW CHAR 

;GET THE NEXT ONE 

?TYPE ?<CR><LF> 

^SIMULATE CONTROL-U 



♦THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
♦CALL: 

♦ RDCHR INPUT A SINGLE CHARACTER FROM THE TTY 

♦ RETURN HERE j {CHARACTER IS ON THE STACK 

♦ J I WITH PARITY BIT STRIPPED OFF 



3055 


01 4602 


011646 






SRDCHR! 


MOV 


(SP),- 


(SP) 


jPUSH DOWN THE PC 


3056 


014604 


016666 


000004 


000002 




MOV 


4(SP), 


2(SP) 


jSAVE THE PS 


3057 


014612 


105777 


164326 




IS: 


TSTB 


eSTKS 




JWAIT FOR 


3058 


014616 


100375 








BPL 


1$ 




•jA CHARACTER 


3059 


014620 


117766 


164322 


000004 




MOVE 


§STKB, 


4{SP) 


jREAD THE TTY 


3060 


014626 


042766 


177600 


000004 




BIC 


»-C<177>,4(SP) 


jGET RID OF JUNK IF ANY 


3061 


014631 


026627 


000004 


000023 




CMP 


4(SP), 


#23 


>IS IT A CONTROL-S? 


3062 


014642 


001013 








BNE 


3$ 




{BRANCH IF NO 


3063 


014644 


105777 


164274 




2S! 


TSTB 


PSTKS 




{WAIT FOR A CHARACTER 


3064 


014650 


100375 








BPL 


2S 




{LOOP UNTIL ITS THERE 


3065 


014652 


1 17746 


164270 






MOVB 


eSTKB, 


«(SP) |;GET CHARACTER 


3066 


014656 


042716 


177600 






BIC 


#*C177 


, (SP) 


{MAKE IT 7-BIT ASCII 


3067 


014662 


022627 


000021 






CMP 


(SP)+, 


#21 


{IS IT A CONTROL-Q? 


3068 


014666 


001 366 








BNE 


2S 




{IF NOT DISCARD IT 


3069 


01 46 70 


000750 








BP 


IS 




{YES, RESUME 


3070 


014672 


026627 


000004 


000140 


3$: 


CMP 


4(SP), 


#140 


{IS IT UPPER CASE? 


3071 


01 4700 


002407 








BLT 


4S 




{BRANCH IF YES 


3072 


014702 


026627 


000004 


000175 




CMP 


4(SP), 


«175 


{IS IT A SPECIAL CHAR? 


307 3 


014710 


003003 








BGT 


4S 




{BRANCH IF YES 


3074 


01 4712 


042766 


000040 


000004 




BIC 


#40, 4(SP) 


{MAKE IT UPPER CASE 


3075 


01 4720 


000002 






4S: 


RTI 






{GO BACK TO USER 



014722 
014724 
014730 
014734 
014736 
014740 
014742 



010346 
012703 
022703 
101405 
104407 
1 12613 
122713 



015030 

015040 



{ »*»♦«»*»«»»»»»»»»»»«»»»»«»#»**»»««»*■»»»«■*«»»•»«•»«■■»*»«. 

♦THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
♦CALL: 

♦ RDLIN { {INPUT A STRING FROM THE TTY 

♦ RETURN HERE { {ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

♦ { {TERMINATOR WILL BE A BYTE OF ALL 0'S 

SPDLIN: MOV R3,-(SP) {{SAVE R3 

1$: MOV #$TTYIN,R3 { {GET ADDRESS 
2S: CMP #$TTYIN+b,,R3 { {BUFFER FULL? 

BLOS 4$ f{BR IF YES 

RDCHR ; {GO READ ONE CHARACTER FROM THE TTY 

MOVB (SP)+, (R3) { {GET CHARACTER 

10$ : CMPB #177, (R3) { { IS IT A RUBOUT 
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DZTAAC . 


NEW 


TTY INPUT ROUTINE 








3090 


014746 


001003 






BNE 


3S 


{ {SKIP IF NOT 


3091 


014750 


104401 


001 176 


4S: 


TYPE 


, SQUES 


{{TYPE A '?' 


3092 


014754 


000763 






BP 


IS 


{{CLEAR THE BUFFER AND LOOP 


3093 


014756 


1 11367 


000044 


3S5 


MOVB 


(R3),9S 


{{ECHO THE CHARACTER 


3094 


014762 


104401 


015026 




TYPE 


,9S 




3095 


01 4766 


122723 


000015 




CMPB 


#15, (R3)+ 


{ {CHECK FOR RETURN 


3096 


014772 


001356 






BNE 


2S 


{{LOOP IF NOT RETURN 


3097 


014774 


105063 


177777 




CLRB 


-1(P3) 


{ {CLEAR RETURN (THE 15) 


3098 


01 5000 


104401 


001200 




TYPE 


,SLF 


{{TYPE A LINE FEED 


3099 


015004 


012603 






MOV 


(SP)t,R3 


{ {RESTORE R3 


3100 


015006 


01 1646 






MOV 


(SP),-(SP) 


{{ADJUST THE STACK AND PUT ADDRESS OF 


3101 


015010 


016666 


000004 


000002 


MOV 


4(SP),2(SP) 


{{ FIRST ASCII CHARACTER ON IT 


3102 


015016 


012766 


015030 


000004 


MOV 


»$TTYIN,4(SP) 




3103 


015024 


000002 






RTI 




{ {RETURN 


3104 


015026 


000 




9S: 


,BYTE 





{{STORAGE FOR ASCII CHAR. TO TYPE 


3105 


015027 


000 






.BYTE 





; {TERMINATOR 


3106 


015030 


000010 




STTYINS 


,BLKB 


8. 


{{RESERVE 8 BYTES FOR TTY INPUT 


3107 


015040 


052536 


005015 


000 SCNTLU: 


,ASCIE 


/"U/<15><12> 


{{CONTROL "U" 


3108 


015045 


136 


006507 


000012 SCNTLGs 


.ASCIZ 


/'■G/<15><12> 


{ {CONTROL "G" 


3109 


015052 


005015 


053523 


020122 SMSWR; 


.ASCIE 


<15><12>/SWR 3 


/ 


3110 


015060 


020075 


000 










311 I 


P15063 


040 


047040 


053505 smnew: 


»ASCIE 


/ NEW = / 




3112 


015070 


036440 


000040 










3113 








«SBTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 



3114 
3115 
3116 

ill? 
3118 
3119 
3U0 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 



{ »♦♦♦♦♦*♦*»»♦**♦♦»♦♦♦*♦♦♦♦»#♦«♦«♦♦♦«#♦♦»♦«*#♦»♦♦♦»»«#♦»#♦♦♦•»### 

♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT, 

♦STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

♦CALL: 

♦ MOV NUM, -(SP) { {NUMBER TO BE TYPED 

♦ TYPOS { {CALL FOR TYPEOUT 

♦ .BYTE N { {N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
» .BYTE M {{M=l OR 

♦ { { 1=TYPE LEADING ZEROS 

♦ { {0SSUPPRESS LEADING ZEROS 

* 

*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

♦STYPOS OR STYPOC 

♦CALL: 



015074 
015100 
015106 
015112 
015116 
015120 
015126 
015134 



017646 
1 16667 
1 12667 
062716 
000406 
1 12767 
112767 
112767 



000001 00021 1 

000207 

000002 



000171 

000165 
000154 



MOV 


NUM,-(SP) 


{ {NUMBER TO BE TYPED 


TYPON 




{ {CALL FOR TYPEOUT 


ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV 


NUM,-(SP) 


{ {NUMBER TO BE TYPED 


TYPOC 




{ {CALL FOR TYPEOUT 


MOV 


g(SP),-(SP) 


{ {PICKUP THE MODE 


MOVB 


1(SP),S0FILL 


{ {LOAD ZERO FILL SWITCH 


MOVB 


(SP) + , SOMODE-fl 


{ {NUMBER OF DIGITS TO TYPE 


ADD 


#2, (SP) 


{ {ADJUST RETURN ADDRESS 


BR 


STYPON 




MOVB 


n,S0FILL 


{ {SET THE ZERO FILL SWITCH 


MOVB 


»6, SOMODE+1 


{ {SET FOR SIX(6) DIGITS 


MOVB 


»5,S0CNT 


{ {SET THE ITERATION COUNT 
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SEQ 0085 



3146 


S15142 


010346 






MOV 


R3»-(SP) 


fjSAVE R3 


3i47 


015144 


010446 






MOV 


R4#-(SP) 


jlSAVE R4 


3148 


015146 


010546 






MOV 


R5#-(SP) 


nSAVE R5 


3149 


015150 


116704 


000145 




MOVB 


gOMODE^lf R4 


; ;GET THE NUMBER OF DIGITS TO TYPE 


3150 


ilSIS4 


005404 






NEG 


R4 




3151 


P15156 


062704 


000006 




ADD 


#6,R4 


} {SUBTRACT IT FOR MAX. ALLOWED 


3S52 


015162 


110467 


000132 




MOVB 


R4» SOMOOE 


nSAVE IT FOR USE 


3153 


015166 


1 16704 


000125 




MOVB 


$0FILLf R4 


; tGET the zero FILL SWITCH 


3154 


015172 


016605 


000012 




MOV 


12(SP)»P5 


jjPICKUP THE INPUT NUMBER 


3155 


015176 


005003 






CLR 


R3 


nCLEAR THE OUTPUT WORD 


3156 


015200 


006105 




is: 


ROL 


RS 


jlROTATE MSB INTO "C" 


3157 


015202 


000404 






BR 


3$ 


; ;G0 DO MSB 


3158 


015204 


006105 




2$: 


ROL 


R5 


IIFORM THIS DIGIT 


3159 


015206 


006105 






ROL 


R5 




3160 


015210 


006105 






ROL 


R5 




3161 


0S5212 


010503 






MOV 


R5,R3 




3162 


015214 


006103 




38: 


ROL 


B3 


; >GET LSB OF THIS DIGIT 


3163 


015216 


105367 


000076 




DECS 


SOMODE 


IJTYPE THIS DIGIT? 


3164 


015222 


100016 






BPL 


78 


nBR IF NO 


3165 


015224 


042703 


177770 




BIC 


#177770, R3 


; IGET RID OF JUNK 


3166 


01S230 


001002 






BNE 


4$ 


IjTEST FOR 


3167 


015232 


005704 






TST 


R4 


nSUPPRESS THIS 0? 


3168 


015234 


001403 






BEQ 


5$ 


If BR IF YES 


3169 


015236 


005204 




4is 


INC 


R4 


fjDON'T SUPPRESS ANYMORE 0'S 


3170 


013240 


052703 


000060 




BIS 


«'0,R3 


nMAKE THIS DIGIT ASCII 


3171 


015244 


052703 


000040 




BIS 


»' ,R3 


fjMAKE ASCII IF NOT ALREADY 


3172 


015250 


1 10367 


000040 




MOVB 


R3,8S 


nSAVE FOR TYPING 


3173 


015254 


104401 


015314 




TYPE 


,8$ 


1 }G0 TYPE THIS DIGIT 


3174 


015260 


105367 


000032 


7s: 


DECB 


SOCNT 


J jCOUNT BY 1 


3175 


015264 


003347 






BGT 


as 


If BR IF MORE TO DO 


3176 


015266 


002402 






BLT 


6S 


IJBB IF DONE 


3177 


015270 


005204 






INC 


R4 


n INSURE LAST DIGIT ISN'T A BLANK 


3178 


015272 


000744 






BR 


2$ 


; ;G0 DO THE LAST DIGIT 


3179 


015274 


012605 




6§! 


MOV 


(SP)+»R5 


; JRESTORE R5 


3180 


015276 


012604 






MOV 


(SP)4-rR4 


llRESTORE R4 


3181 


015300 


012603 






MOV 


(SP)+,R3 


RESTORE R3 


3182 


015302 


016666 


000002 000004 




MOV 


2(SP) , 4(SP) 


; J SET THE STACK FOB RETURNING 


3183 


015310 


012616 






MOV 


(SP)+, (SP) 




3184 


015312 


000002 






BTI 




f ; RETURN 


3185 


015314 


000 




8$! 


.BYTE 





1 {STORAGE FOR ASCII DIGIT 


3186 


015315 


000 






.BYTE 





; f TERMINATOR FOR TYPE ROUTINE 


3187 


015316 


000 




SOCNT: 


,B\fE 





IJOCTAL DIGIT COUNTER 


3188 


015317 


000 




S0FILLS 


.BYTE 





; ; ZERO FILL SWITCH 


3189 


015320 


000000 




SOMODEs 


.WORD 





; ;NUMBER OF DIGITS TO TYPE 
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3190 






3191 






3192 






3193 






3194 






3195 






3196 






3197 






3198 


015322 


010046 


3199 


015324 


016600 


3200 


015330 


005740 


3 201 


015332 


111000 


3202 


015334 


006300 


3203 


015336 


016000 


3204 


015342 


000200 


3205 






3206 






3207 






3208 






3209 


015344 


01 1646 


3210 


015346 


016666 


3211 


015354 


000002 


3212 






3213 






3214 






3215 






3216 






3217 






3218 






3219 






3220 


015356 


015344 


3221 


015360 


013776 


3222 


015362 


015120 


3223 


015364 


015074 


3224 


015366 


015134 


3225 






3226 


015370 


014370 


3227 






3228 


015372 


014320 


3229 


015374 


014602 


3230 


015376 


014722 


3231 


015400 


014216 


3232 


015402 


012014 


3233 


015404 


012120 



.SBTTL TRAP DECODER 



;«THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;«AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•♦OF THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 



000004 000002 



;«G0 TO 


THAT 


ROUTINE. 




STRAP: 


MOV 


R0,»(SP5 


J ;SAVE R0 




MOV 


2(SP)#R0 


; ;GET TRAP ADDRESS 




TST 


«(B0) 


; {BACKUP BY 2 




MOVB 


(R0) ,R0 


; JGET RIGHT BYTE OF TRAP 




ASL 


R0 


; {POSITION FOR INDEXING 




MOV 


$TRPAD(R0),F 


; {INDEX TO TABLE 




BTS 


R0 


{ {GO TO ROUTINE 


J f THIS 


IS USE 


TO HANDLE THE 


"GETPRI" MACRO 


STRAP2: 


MOV 


(SP)r-(SP) 


{ {MOVE THE PC DOWN 




MOV 


4(SP),2(SP} 


{ {MOVE THE PSW DOWN 




RTI 




; {RESTORE THE PSW 


.SBTTL 


TRAP 


TABLE 





{*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
{»BY THE "TRAP" INSTRUCTION. 



.WORD 

STYPE 

STYPOC 

STYPOS 

STYPON 



$TRAP2 
{ {CALLsTYPE 
{ {CALLsTYPOC 
{ {CALLsTYPOS 
{ {CALL=TYPON 



TRAP+1 C104401 ) 
TRAP+2C104402) 
TRAP+3(104403) 
TRAP+4(104404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING EEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



$GTSWR {{CALLsGTSWR 



TRAP+5( 104405) GET SOFT-SWR SETTING 



SCKSWR 
SRDCHP 
SRDLIN 
SRDOCT 



{ {CALL: 
{ {CALL: 
{ {CALL: 
{ {CALL: 



WAIT, ON. READY 
WAIT. FOR. XFER 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
TRAP + U(104411 ) READ AN OCTAL NUMBER FROM TTY 
{ {CALLsWAITREADY TRAP+l 2 ( 104412) WAIT ON THE READY BIT 

{ {CALLaWAlTXFER TRAP+l 3 ( 1 044 1 3 ) WAIT ON XFER REG, 



CKSWR 
ROCHR 
RDLIN 
RDOCT 



TRAP+6(104406) 
TRAP+7(104407) 
TRAP+10(104410) 
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DZTAACNEW POWER DOWN AND UP ROUTINES 



SEQ 0087 



3234 










.SBTTL 


POWER 


DOWN AND UP ROUTINES 


3235 


















3236 












3237 










1 POWER 


DOWN ROUTINE 




3238 


015406 


012737 


015552 


000024 


SPWRDN: 


MOV 


#SILLUP, §#PWRVEC 


1 ;SET FOR FAST UP 


3239 


015414 


012737 


000340 


000026 




MOV 


I340» e«PWRVEC + 2 


JJPRI0J7 


3240 


015422 


010046 








MOV 


R0,»(SP) 


J J PUSH R0 ON STACK 


3241 


015424 


010146 








MOV 


Rlr-(SP) 


11 PUSH Rl ON STACK 


3242 


015426 


010246 








MOV 


R2»-(SP) 


; ;PUSH R2 ON STACK 


3243 


015430 


010346 








MOV 


R3,-(SP) 


J J PUSH R3 ON STACK 


3244 


015432 


010446 








MOV 


R4,-(SP) 


llPUSH R4 ON STACK 


3245 


015434 


010546 








MOV 


R5,-(SP) 


; ;PUSH R5 ON STACK 


3246 


015436 


017746 


163476 






MOV 


gSWR,-(SP) 


nPUSH PSWR ON STACK 


3247 


015442 


010667 


0001 10 






MOV 


SP,SSAVR6 


yjSAVE SP 


3248 


015446 


012737 


015460 


000024 




MOV 


#SPWRUP,§»PWRVEC 


; :SET UP VECTOR 


3249 


015454 


000000 








HALT 






3250 


015456 


000776 








BR 


,"2 


; ;HANG UP 


3251 


















3252 










• 1 #«#«#»»®««*#»»»»®»*#*«*»«»««'«»*«##*«««^»«»'»*»»»#«-»»«.«»»*®#«#«-«»» 


3253 










; POWER 


UP ROUTINE 




3254 


015460 


012737 


015552 


000024 


SPWRUPJ 


MOV 


»SILLUP»§»PWRVEC 


nSET FOR FAST DOWN 


3255 


015466 


016706 


000064 






MOV 


SSAVR6,SP 


irGET SP 


3256 


015472 


005067 


000060 






CLR 


SSAVR6 


; IWAIT LOOP FOR THE TTY 


3257 


015476 


005267 


000054 




is: 


INC 


SSAVR6 


nWAIT FOR THE INC 


3258 


015502 


001 375 








BNE 


i$ 


II OF WORD 


3259 


015504 


012677 


1 63430 






MOV 


(SP)f »9SWR 


MPOP stack INTO 9SWR 


3260 


015510 


01 2605 








MOV 


(SP)+rR5 


MPOp STACK INTO R5 


3261 


015512 


012604 








MOV 


(SP)f ,R4 


MPOP STACK INTO R4 


3262 


015514 


01 2603 








MOV 


(SP)f,R3 


nPOP STACK INTO R3 


3263 


015516 


012602 








MOV 


(SP)+,R2 


IJPOP STACK INTO R2 


3264 


015520 


012601 








MOV 


(SP)+,R1 


;;POP STACK INTO Rl 


3265 


015522 


012600 








MOV 


(SP)*»R0 


nPOP STACK INTO R0 


3266 


015524 


012737 


015406 


000024 




MOV 


|SPWRDN,(a«pWRVEC 


fjSET UP THE POWER DOWN VECTOR 


3267 


015532 


012737 


000340 


000026 




MOV 


#340,i#PWRVEC+2 


; ;PRI0;7 


3268 


015540 


104401 








TYPE 




? REPORT THE POWER FAILURE 


3269 


015542 


015560 






SPWRMG: 


.WORD 


SPOWER 


J J POWER FAIL MESSAGE POINTER 


3270 


015544 


012716 








MOV 


(PC)+, (SP) 


;> RESTART AT PWRST 






0022 2 2 






SPWRAD: 


.WORD 


PWRST 


J f RESTART ADDRESS 


3272 


015550 


000002 








RTI 






3273 


015552 


000000 






SILLUP: 


HALT 




J J THE POWER UP SEQUENCE WAS STARTED 


3274 


015554 


000776 








BR 


,■"2 


; ; BEFORE THE POWER DOWN WAS COMPLETE 


3275 


015556 


000000 






SSAVR6: 







; ;PUT THE SP HERE 


3276 


015560 


005015 


047520 


042527 


SPOWER: 


.ASCIZ 


<15><12>"P0WER" 




327 7 


015566 


000122 














3278 












.EVEN 







TAli BASIC LOGIC TEST 


(PART 1) 


MAINDEC 


"•11«DZTAA 




MACYll 27(732) ll-JUN-76 


DZIAAC.NEW 


POWER 


DOWN AND 


UP ROUTINES 






3279 


015570 


042200 


044522 


042526 


MSGDRV: 


.ASCIZ 


<CRLF>/DRIVE(S)?/ 


3280 


015576 


051450 


037451 


000 








3281 


015603 


015 


052012 


041501 


MSGASK: 


, ASCIZ 


<15><12>/TACS?/ 


3282 


015610 


037523 


000 










3283 


01561 3 


126 


041505 


047524 


MSGVECl 


.ASCIZ 


/VECTOR?/ 


3284 


015620 


037522 


000 










3285 


015623 


120 


044522 


051117 


HSGPRI: 


.ASCIZ 


/PRIORITY?/ 


3286 


015630 


052111 


037531 


000 








3287 


015635 


124 


041501 


036523 


MTACS: 


.ASCIZ 


/TACS=/ 


3288 


015642 


000 












3289 


015643 


040 


040524 


041 104 


MTADB: 


.ASCIZ 


/ TADBs/ 


3290 


015650 


000075 












3291 


015652 


053040 


041505 


047524 


MTAVEC: 


.ASCIZ 


/ VECTORS/ 


3292 


015660 


036522 


000 










3293 


015663 


040 


051120 


047511 


MTAPRI : 


.ASCIZ 


/ PRIORITYs/ 


3294 


015670 


044522 


054524 


000075 








3295 


015676 


005015 


045517 


000077 


MSGOK: 


, ASCIZ 


<15><12>/0K?/ 


3296 


015704 


042531 


006523 


000012 


MYES: 


.ASCIZ 


/YES/<15><12> 


3297 


015712 


052123 


052101 


051525 


EMI : 


» ASCIZ 


/STATUS PROBLEM/ 


3298 


015720 


050040 


047522 


046102 








3299 


015726 


046505 


000 










3300 


015731 


042 


042522 


042101 


EM2: 


, ASCIZ 


/"READY" FAILED TO SET/ 


3301 


015736 


021 1 31 


043040 


044501 








3302 


015744 


042514 


020104 


047524 








3303 


015752 


051440 


052105 


000 








3304 


015757 


042 


051 124 


047101 


EM3: 


, ASCIZ 


/"TRANSFER REQUEST" FAILED TO SET/ 


3305 


015764 


043123 


051105 


051040 








3306 


015772 


050505 


042525 


052123 








3307 


016000 


020042 


040506 


046111 








3308 


016006 


042105 


052040 


020117 








3309 


016014 


042523 


000124 










3310 


016020 


044124 


020105 


051127 


EM4: 


eASCIZ 


/THE WRONG FLAG SET/ 


3311 


016026 


047117 


020107 


046106 








3312 


016034 


043501 


051440 


052105 








3313 


016042 


000 












3314 


016043 


103 


052517 


052116 


EMS; 


«ASCIZ 


/COUNT PATTERN FAILED/ 


3315 


016050 


050040 


052101 


042524 








3316 


016056 


047122 


043040 


044501 








3317 


016064 


042514 


000104 










3318 


016070 


040504 


040524 


050040 


EM6: 


, ASCIZ 


/DATA PROBLEM/ 


3319 


016076 


047522 


046102 


046505 








3320 


016104 


000 












3321 


016105 


101 


042104 


042522 


EM10: 


.ASCIZ 


/ADDRESS FAILED/ 


3322 


016112 


051523 


043040 


044501 








3323 


016120 


042514 


000104 










3324 


016124 


041520 


020040 


020040 


UHli 


.ASCIZ 


/PC TACS/ 


3325 


016132 


020040 


040524 


051503 








3326 


016140 


000 












3327 


016141 


120 


020103 


020040 


DH2: 


.ASCIZ 


/PC TACS WAIT ADDRESS/ 


3328 


016146 


020040 


052040 


041501 








3329 


016154 


020123 


020040 


053440 








3330 


016162 


044501 


020124 


042101 








3331 


016170 


051104 


051505 


000123 








3332 


016176 


041520 


020040 


020040 


DH5 J 


.ASCIZ 


/PC TACS EXPECT RCV'D/ 


3333 


016204 


020040 


040524 


051503 








3334 


016212 


020040 


020040 


054105 









TAU BASIC LOGIC TEST (PART 1) MAINDEC-l I -DETAA^C 
DZTAACNEW POWER DOWN AND UP ROUTINES 
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SEQ 0089 



3335 


016220 


042520 


052103 


020040 










3336 


016226 


041522 


023526 


000104 










3337 


016234 


04 1 520 


020040 


020040 


DH6 : 


. ASCIZ 


/PC 


TADB/ 


3338 


016242 


020040 


040524 


041 104 










3339 


016250 


000 














33 40 


016251 


120 


020103 


020040 


DH10: 


. ASCIZ 


/PC 


ADDRESS/ 


3341 


016256 


020040 


040440 


042104 










3342 


016264 


042522 


051523 


000 










3343 




016272 






.EVEN 








3344 


016272 


001 1 16 


001 162 


000000 


DTI 1 


, WORD 


SERRPC 


, $REG0»0 


3345 


016300 


001 1 16 


001 162 


001202 


DT2s 


.WORD 


SERRPC 


»SREG0#SAVPCr0 


3346 


016306 


000000 














3347 


016310 


001116 


001 162 


001124 


DT5! 


.WORD 


SERRPC 


r $REG0» SGDOATf SBODAT* 


3348 


016316 


001 126 


000000 












3349 


016322 


001116 


001 164 


000000 


DT6J 


.WORD 


SERRPC 


rSREGl#0 


3350 


016330 


001116 


001 122 


000000 


DT10: 


.WORD 


SERRPC 


,SBDADR,0 


3351 


016336 


001 1 16 


001206 


000000 


DT201 : 


.WORD 


SERRPC 


,TACSL,0 


3352 


















3353 


016344 


001 1 16 


000000 




OT202! 


.WORD 


SERRPC 


»0 


3354 


















3355 


016350 


040524 


030461 


043040 


EM201 ! 


.ASCIE 


"TAU FAILED TO RESPOND" 


3356 


016356 


044501 


042514 


020104 










3357 


016364 


047524 


051040 


051505 










3358 


016372 


047520 


0421 16 


000 










3359 


016377 


116 


0201 17 


051 104 


EM202 ; 


.ASCIZ 


"NO DRIVE AVAILABLE" 




V 1 O *f 10 ** 
















3361 


016412 


044501 


040514 


046102 










3362 


016420 


000105 














3363 


016422 


041520 


020040 


020040 


DH201 ! 


.ASCIZ 


/PC 


TACS/ 


3364 


016430 


020040 


040524 


051503 










3365 


016436 


000 














3366 


016437 


120 


000103 




DH202: 


, ASCIZ 


/PC/ 




3367 




000001 








.END 







TAU BASIC LOGIC 


TEST 


(PART 1) 


MAINDEC- 


ll-DZTAA 


-C 




MACYll 


27(732) 


ll-JUN-76 15:15 


PAGE 77 


DZTAAC. 


NEW 


CROSS 


REFERENCE 


TABLE — 


USER SYMBOLS 












ASKADR 


012332 




572 


2494» 
















ASKDRV 


012222 




569 


246H 


2484 














ASKKEY 


001232 




394« 


659* 


695 














BEGINX 


001760 




566# 


602 


604 


652 


654 










BEGINI 


001356 




231 


485« 
















BEGIN2 


001410 




232 


492# 
















BEGIN3 


001416 




233 


491 


494» 














BEGIN4 


001424 




234 


496« 
















BGNCMN 


001430 




488 


490 


493 


495 


497S 










BIT0 = 


000001 




166# 


















BIT00 = 


000001 




156# 


166 


208 


956 


1415 


2857 


2859 






BIT01 = 


000002 




155# 


165 


207 


947 


1105 


1106 


1110 


1111 1119 


1120 1125 


BIT02 s 


000004 




154» 


164 


206 


938 


1078 


1079 


1083 


1084 1092 


1093 1098 


BIT03 = 


000010 




153» 


163 


205 


929 


1051 


1052 


1056 


1057 1065 


1066 1071 


BIT04 = 


000020 




152« 


162 


204 


920 


1024 


1025 


1029 


1030 1038 


1039 1044 


BIT05 s 


000040 




151# 


161 


203 


1161 


1382 


1383 


1386 






BIT06 = 


000100 




150# 


160 


202 


911 


997 


998 


1002 


1003 1011 


1012 1017 


8IT07 = 


000200 




149# 


159 


201 


902 


1362 


1363 


1366 


2857 2859 




BIT08 = 


000400 




148» 


158 


200 


893 


970 


971 


975 


976 984 


985 990 








1441 


2279 
















BIT09 = 


001000 




147« 


157 


199 


1171 


1342 


1343 


1346 


2287 2351 




BITl = 


000002 




165# 


















BIT10 = 


002000 




146# 


198 


884 


1322 


1323 


1326 


2335 






BITU = 


004000 




145# 


197 


875 


1302 


1303 


1306 


2294 






BIT12 = 


010000 




144» 


196 


1182 


1282 


1283 


1286 








BITU = 


020000 




143« 


195 


1192 


1262 


1263 


1266 


2342 






BIT14 s 


040000 




142» 


194 


866 


1242 


1243 


1246 


2265 






BIT15 = 


100000 




141S 


193 


670 


1202 


1222 


1223 


1226 






BIT2 = 


000004 




164« 


















BIT3 = 


000010 




163s 


















BIT4 = 


000020 




162# 


















BITS = 


000040 




161S 


















BIT6 = 


000100 




160# 


















BIT7 = 


000200 




159# 


















BITS = 


000400 




158» 


















BIT9 s 


001000 




157» 


















BLKLIM 


013500 




2761» 


2775« 


2782 


2799 












BPTVECs 


000014 




173§ 


















BSBG = 


000010 




186S 


1486 


1795 


1938 


1945 










BSFG s 


000006 




185# 


1482 


1780 


1909 


1916 


2738 








BSFGSB 


013336 




241 


2735* 


2736 


2743 












CHKADR 


002002 




568 


571 


590# 














CHKDRV 


002062 




628# 


















CKSWR = 


104406 




2264 


2327 


2350 


3228» 












CR s 


000015 




81# 


2926 


2936 














CRCERRs 


040000 




194# 


















CRLF s 


000200 




82$ 


554 


2897 


2936 


3279 










CURDRV 


001234 




395« 


688* 


689 














DDISP = 


177570 




88$ 


364 


525 














DHl 


016124 




416 


3324# 
















DH10 


016251 




458 


3340# 
















DH2 


016141 




422 


428 


434 


3327» 












DH201 


016422 




465 


3363» 
















DH202 


016437 




470 


33668 
















DH5 


016176 




440 


452 


3332» 














DH6 


016234 




446 


3337# 

















2859 

1402 
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SEQ 0091 



DISPLA 


001 142 


364# 


525* 


533* 


2308* 


2334« 


















DISPRE 


000174 


228# 


533 
























DRVKEY 


001224 


392n 


393 


486* 


628 


641 


662 


693 


2462* 


2467 


2481 


2485 


2831 




DRVPNT 


001230 


393# 


642» 


662* 


679 


694* 


2825 


2832* 














DSWR = 


1 77570 


87» 


363 


524 






















DTI 


016272 


417 


3344# 
























DT10 


016330 


459 


3350# 
























DT2 


016300 


423 


429 


435 


3345» 




















DT201 


016336 


466 


3351 # 
























DT202 


016344 


471 


3353« 
























DT5 


016310 


441 


453 


3347# 






















DT6 


016322 


447 


3349# 
























EMTVECs 


000030 


176# 


508* 


509* 


731 


732* 


736*^ 


754 


755* 


759* 


777 


778* 


782* 


800 






801'fr 


805» 


823 


824* 


828» 


846 


847* 


851* 












EMI 


015712 


415 


3297# 
























EM10 


016105 


457 


3321 S 
























EM2 


015731 


421 


33008 
























EM201 


016350 


464 


3355# 
























EM202 


016377 


469 


3359# 
























EM3 


015757 


427 


3304# 
























EH4 


016020 


433 


3310# 
























EMS 


016043 


439 


3314» 
























EM6 


016070 


445 


451 


3318# 






















ERROR = 


100000 


193# 


1657 
























ERRORl 


011516 


732 


755 


778 


801 


824 


847 


2330# 














ERRVECs 


000004 


169# 


522 


523» 


534« 


590» 


596* 


726* 


729* 


738* 


749* 


752» 


761* 


772* 






775* 


784* 


795« 


798» 




818* 


821* 


8 30* 


841* 


844* 


853* 


2270 


2271* 






2273# 


2276» 
























EXAM 


01 3672 


629 


633 


638 


2844# 




















EXIT 


012322 


2480 


2485# 
























FGAP s 


004000 


197# 


























FUNCTI= 


00001b 


209# 


1424 


1427 


1428 


1437 


1450 


1454 














FUNC0 = 


000002 


207# 


209 
























FUNCl = 


000004 


206# 


209 
























FUNC2 = 


000010 


205# 


209 
























GNS = 


u 


227 


553 


675 


686 


3221 


3222 


3223 


3224 


3226 


3228 


3229 


3230 


3231 






3232 


3233 
























GO = 


000001 


208» 


303 


306 


325 


328 


707 


1518 


1543 


1566 


1581 


1596 


1625 


1647 






1655 


1674 


1676 


1694 


1722 


1726 


1733 


1750 


1765 


1780 


1795 


1810 


1825 






1841 


1845 


1852 


1876 


1880 


1887 


1905 


1909 


1916 


1934 


1938 


1945 


1963 






1967 


1974 


1992 


1996 


2003 


2040 


2042 


2083 


2085 


2087 


2095 


2097 


2135 






2137 


2140 


2161 


2163 


2166 


2187 


2189 


2192 


2211 


2575 


2578 


2608 


2631 






2663 


2666 


2691 


2697 


2719 


2722 


2738 


2783 


2801 










GTSWR r 


104405 


548 


701 


2753 


2766 


2772 


3226# 
















HERE 


001760 


539 


541 


552 


554# 




















HGHTIM 


01 2072 


1678 


2404* 


2418# 






















HI = 


00001 1 


79» 


2895 


2936 






















ILBS s 


000020 


204# 


1424 


1427 


1428 


1437 


1450 


1454 


2065 


2093 


2104 


2150 


2176 


2202 






2791 


2812 
























INT,ENs 


000100 


202» 


1424 


1427 


1428 


1437 


1450 


1454 














lOTVECs 


000020 


1741? 


506» 


507» 






















ITEMS2 


001 3 36 


462# 


























LEADERS 


020000 


195* 


1467 


1528 


1553 


1652 


1657 


1696 


1707 


1738 


1863 


1892 


1921 


1950 






1979 


2008 


2580 


2612 


2635 


2668 


2671 


2695 


2699 


2724 


2740 


2862 




LF = 


000012 


80# 


2930 


2936 






















LOOP 


012246 


2468# 


2482 
























TAll 


BASIC LOGIC TEST 


(PART 


1) MAINDEC-ll'-DETAA-C 




MACYll 


27(732) 


11-JUN 


-76 15; 15 PAGE 


79 




S 



DZTAAC.NEW CROSS REFERENCE TABLE USER SYMBOLS 



LOOPl 


000500 


291# 


292 




















L00P2 


000600 


301» 


312 




















L00P3 


000700 


323if 


334 




















MANUAL 


002202 


648 


656« 




















MAXCNT 


012116 


670* 


1678« 


1679* 


1680* 


1681* 


2404 


2425t 


2432 








MSGASK 


015603 


2495 


3281# 




















MSGDRV 


015570 


2461 


32791 




















MSGID 


001732 


542 


554# 


661 


















MSGOK 


015676 


2542 


3295« 




















MSGPRI 


015623 


2518 


3285» 




















MSGVEC 


015613 


2509 


3283# 




















MTACS 


015635 


2530 


3287# 




















MTADB 


015643 


2533 


3289# 




















MTAPFI 


015663 


2539 


3293# 




















MTAVEC 


015652 


2536 


3291# 




















MYES 


015704 


2551 


3296# 




















NEXT 


012302 


2471 


2475 


2479« 


















NOTA 


012260 


2469 


2472# 




















NOTB 


012272 


2473 


2476# 




















NOTLGL 


012314 


2466 


2477 


2483# 


2486 
















NXTDHV 


013626 


2573 


2606 


2629 


2661 


2689 


2717 


2822# 










OFFUNs 


001000 


1998 


2853 




















OK 


002214 


657 


659« 




















PATTRN 


01 3502 


2762* 


2768* 


2776(f 


2789 


2800 














PIRQ = 


177772 


86# 






















PlRQVEs 


000240 


180« 






















PR0 = 


000000 


103# 






















PRl = 


000040 


104# 






















PR2 = 


000100 


105# 






















PR3 s 


000140 


106# 






















PR4 = 


000200 


107» 






















PR5 = 


000240 


108S 






















PR6 = 


000300 


109« 






















PR7 = 


000340 


110« 






















PS = 


177776 


83» 


84 


665* 


















PSW = 


177776 


84# 






















PWRST 


002222 


661 # 


3271 




















PWRVECs 


000024 


175# 


512* 


513* 


3238* 


3239* 


3248* 


3254* 


3266* 3267* 








RDBLK 


013546 


2634 


2694 


2799# 


















RDCHR = 


104407 


2543 


3087 


3229# 


















RDLIN s 


104410 


2463 


2951 


3230» 


















RDOCT s 


10441 1 


2496 


2510 


2519 


3231# 
















RDSUB 


01 2774 


237 


2624# 


2628 


2636 
















READ = 


000004 


184# 


328 


1478 


1765 


1880 


1887 


2097 


2801 








READY = 


000040 


203« 


304 


311 


326 


333 


708 


1519 


1525 1544 1550 


1567 


1582 


1598 






1606 


1627 


1635 


1701 


1727 


1751 


1766 


1781 1796 1811 


1826 


1846 


1881 






1910 


1939 


1968 


1997 


2408 


2438 


2576 


2609 2632 2664 


2692 


2720 


2785 






2803 


2849 




















RESVECs 


000010 


170» 






















REWINDS 


000016 


189# 


303 


325 


707 


1498 


1518 


1566 


1596 1647 1674 


1694 


1722 


1841 






1876 


1905 


1934 


1963 


1992 


2040 


2083 


2095 2135 2161 


2187 


2211 


2575 






2608 


2631 


2663 


2691 


2719 














RGPBLK 


013156 


239 


2684» 


2688 


2696 


2700 














SAVPC 


001202 


384i 


2405* 


2406* 


2422 


2433* 


2434* 


2450 


3345 








SAVPS 


001204 


385# 


2407* 


2421 


2435* 


2449 














SETBUF 


013370 


2600 


2655 


2749» 
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DETAAC.NEW 


CROSS REFERENCE 


TABLE 


USER 


SYMBOLS 




SFBG 


s 


000014 


188# 


1494 


1825 


1996 


2003 


SFFG 


s 


000012 


187# 


1490 


1810 


1967 


1974 


SFFGSB 




013252 


240 


2712# 


2716 


2727 




STACK 


s 


001 100 


74# 


504 


725 


748 


771 








2712 










START 




002234 


660 


663# 


2245 






STKL^5T 




177774 


85S 










sm 




001 140 


291 


309 


3638 


502 


524* 








2294 


2335 


2342 


2347 


2351 








2859 


2984 


3021* 


3246 


3259* 


SWREG 




0001 76 


229# 


532 


546 


699 


2751 


SW0 




000001 


138« 










SU00 




000001 


128$ 


138 








SW0 1 


I 


000002 


127# 


137 








SM02 


z 


000004 


126# 


136 








SW03 




000010 


125# 


135 








SW04 


- 


000020 


124# 


134 








SW05 


I 


000040 


123^ 


133 








SW06 


I 




122« 


132 








SW07 


I 


000200 


121# 


131 








SW08 


I 


000400 


i20# 


130 








SW09 


I 


001000 




129 








SW| 


I 


000002 


137S 










SWI0 


z 


002000 


118# 










SWl 1 


z 


004000 


117« 










S5^i 2 




010000 


Ii6« 










SWi 3 




020000 


1151 










SWl 4 


s 


040000 


1 14S 










SW15 




100000 


113« 










SW2 




000004 


I36# 










SW3 




000010 


1358 










SW4 


s 


000020 


I 34# 










SW5 




000040 


133# 










SW6 


s 


000100 


i32« 










SW7 


„ 


000200 


131 # 










SH8 


I 


000400 


130# 










SW9 


I 


00 1 000 


129# 










TACSH 




00 1210 


387# 


819^ 


825 


1403* 


1415 


TACSL 




00 j 206 


386» 


592 


666 


2501* 


2504 








3351 










TADBH 




001 21 4 


389f^ 


842* 


848 


2507* 


2508» 


TADBL 




001 212 


388# 


667 


2503* 


2507 


2534 


TAPRIO 




001 222 


391 » 


2529» 


2540 






TAVEC 




001 2 16 


390« 


489 


663» 


664* 


2515* 


TBITVF 


„ 


00001 4 


171« 










TDRV 




002 366 


681 


683« 








TIMERR 




002000 


ig8« 










TKVEC 


z 


000060 


178# 










TPVEC 


I 


000064 


179^ 










TRAPVE 




000034 


177« 




511* 






TRTVEC 




000014 


172# 










TP«REQ 




000200 


201# 










TSTi 




002514 


705 


723« 








TST10 




003316 


867 


872S 








TST100 




007070 


1782 


1789# 








TST101 




007132 


1797 


1804# 
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2697 

2722 



526 
2751 



532* 
2755 



546 
2757 



699 
2764 



2265 
2768 



2279 
2770 



2281 
2822 



2287 
2857 



1427* 
2531 



2570 
2517* 



2504* 
2569 



2603 
2537 



2505* 
2602 



2657 
2686 



2685 
2714 



TAll BASIC LOGIC TEST (PART 1 ) MAINDEC-1 1 -DZTAA-C MACYl 1 27(732) ll-JUN-76 15:15 PAGE 81 SEQ 0094 

DZTAAC .NEW CROSS REFERENCE TABLE USER SYMBOLS 



TST102 


007174 


1812 


1819# 




TST103 


007236 


1827 


1834S 




TST104 


007370 


1837 


1864 


18698 


TST105 


007504 


1872 


1893 


1898S 


TST106 


007620 


1901 


1922 


19278 


TST107 


007734 


1930 


1951 


19568 


TSTI i 


003340 


876 


88i» 




TSTI 10 


010050 


1959 


1980 


19858 


TSTll 1 


010164 


1988 


2009 


20148 


TSTI 12 


010224 


2033# 






TSTll 3 


010374 


2036 


2071 


20768 


TSTI 14 


010534 


2079 


21 12« 




TSTI 15 


010554 


2116 


2121 » 




TSTU6 


010570 


2124 


2129S 




TSTI 17 


010674 


21558 






TST12 


003362 


885 


890S 




TST120 


01 1000 


2181# 






TST121 


011102 


2207« 






TST13 


003404 


894 


899» 




TST14 


003426 


903 


908# 




TSTI5 


003450 


912 


9178 




TST16 


003472 


921 


926# 




TST17 


003514 


930 


935§ 




TST2 


002610 


746Sf 






TST20 


003536 


939 


944# 




TST21 


003560 


948 


953# 




TST22 


003602 


957 


969# 




TST23 


003634 


977 


982# 




TST24 


003672 


991 


996S 




TST25 


003724 


1004 


1009$ 




TST26 


003762 


1018 


1023« 




TST27 


004014 


1031 


1036» 




TST3 


002704 


769# 






TST30 


004052 


1045 


1050# 




TST31 


004104 


1058 


1063S 




TST32 


004142 


1072 


1077# 




TST33 


004174 


1085 


10909 




TST34 


004232 


1099 


li04# 




TST35 


004264 


1112 


1117» 




TST36 


004322 


1126 


113H 




TST37 


004370 


1132 


1157« 




TST4 


003000 


792# 






TST40 


004414 


1162 


iiem 




TST41 


004440 


1172 


11778 




TST42 


004470 


1183 


11888 




TST43 


004514 


1193 


11989 




TST44 


004540 


1203 


1216S 




TST45 


004606 


1228 


1236# 




TST46 


004654 


1248 


12568 




TST47 


004722 


1268 


1276# 




TST5 


003074 


8iS# 






TST50 


004770 


1288 


12968 




TST51 


005036 


1308 


13i6# 




TST52 


005104 


1328 


1336# 




TST5 3 


005152 


1348 


1356» 




TST54 


005220 


1368 


13768 





p 
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MAINDEC" 


11-DZTAA 


-C 




MACYll 
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PAGE 


82 






DZTAAC^NEW CROSS 


REFERENCE 


TABLE «»" 


USER SYMBOLS 




















TST55 


00S266 


1388 


1 399» 
























TST56 


005320 


1 405 


1410# 
























TST57 


005352 


1416 


1421 # 
























f ST6 


0031 74 


838# 


























TST60 


00541 2 


1 422 


1429 


i434# 






















f ST61 


005450 


1435 


1442 


i447# 






















TST62 


005506 


1448 


1455 


1465# 






















TST63 


005642 


1500 


i5J0# 
























TST64 


005742 


1514 


1529 


1535^ 






















TST65 


006042 


1539 


1554 


i560# 






















TST66 


006104 


1568 


1575# 
























TST67 


006 146 


1583 


1590# 
























TST7 


003274 


863§ 


























TST70 


006236 


1618# 


























TST7 1 


006 3 32 


1621 


1636 


1 64 1 # 






















TST72 


006424 


1644 


1668# 
























TST73 


006504 


1671 


1689» 
























TST74 


006606 


1715# 


























TST75 


006722 


1718 


1739 


1 744# 






















TST76 


006764 


1752 


1 759# 
























TST77 


007026 


1767 


1774# 
























TYPE = 


1 04401 


542 


661 


673 


684 


689 


690 


2235 


2337 


2345 


2367 


2376 


2378 


2381 






2383 


2387 


2 395 


2461 


2483 


2495 


2509 


2518 


2530 


2533 


2536 


2539 


2542 






2549 


2551 


2900 


2995 


2996 


2999 


3012 


3023 


3042 


3091 


3094 


3098 


3173 






3221# 


3268 
























TYPERR 


011676 


2344 


2367# 
























TYPOC s 


104402 


2392 


2532 


2535 


2538 


2541 


2998 


32228 














fYPON s 


1 04404 


3224« 


























TYPOS s 


104403 


3223» 


























UNIT s 


000400 


200« 


682 


1424 


1437 


1450 


1454 


2828 


2848 












WAITREs 


104412 


1565 


1580 


1595 


1609 


1624 


1648 


1656 


1675 


1677 


1695 


1711 


1721 


1723 






1734 


1749 


1764 


1779 


1794 


1809 


1824 


1840 


1842 


1859 


1875 


1877 


1888 






1904 


1906 


1917 


1933 


1935 


1946 


1962 


1964 


1975 


1991 


1993 


2004 


2023 






2039 


2041 


2043 


2069 


2082 


2084 


2086 


2094 


2096 


2108 


2136 


2138 


2151 






2162 


2164 


2177 


2188 


2190 


2203 


2212 


2579 


2667 


2698 


2723 


2739 


2792 






2813 


32328 
























WAITXFs 


104413 


2064 


2088 


2090 


2092 


2098 


2103 


2141 


2143 


2167 


2169 


2193 


2195 


2784 






2802 


3233# 
























WAITgF 


012120 


2430S 


3233 


























012014 


2402S 


3232 
























WA ITl 


01 2044 


2408» 


2416 


2419 






















WAIT2 


01 2064 


2403» 


2415« 


























0121 00 


2409 


2413 


242 1 # 






















l^AI T4 


01 2052 


2411 


2414« 
























WFG s 


000000 


182» 


1470 


1543 


1581 


1625 


1655 


1676 


1726 


1733 


2042 


2085 


2137 


2163 






2189 


2578 


2666 






















WFGSU8 


012622 


235 


2568» 


2572 


2583 




















WGBLOP 


01 3060 


2656# 


2660 


2674 






















WGPBLK 


013054 


238 


26551 
























WLOOP 


012712 


2601 » 


2605 


2615 






















WRITE = 


000002 


183» 


306 


1181 


1474 


1750 


1845 


1852 


204b 


2087 


2140 


2166 


2192 


2783 


WRTBLK 


01 3504 


2611 


2670 


27828 






















WRTLOCs 


010000 


I9bn 


2855 
























WRTSUB 


012706 


236 


2600« 
























SAUTOB 


001 134 


360# 


550* 


2992 


3113 




















SBDADR 


001122 


355s 


733* 


756* 




802* 


825* 


848^f 


3350 
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SEQ 


DZTAAC .NEW CROSS 


REFERENCE 


TABLE 


USER SYMBOLS 




















SBDDAT 


001 126 


357# 


2331* 


3347 






















SBELL 


001 172 


379» 


2337 


2363 






















SCHARC 


014212 


2902* 


2912* 


2919 


2928* 


2933# 


















SCKSj^R 


014320 


2984# 


3228 
























SCMTAG 


001 100 


343if 


499 


500 


508 


514 


515 


516 














SCMI s 


000002 


375» 


376# 


377S 






















$CM2 = 


000004 


375# 


376# 


377« 






















$CM3 s 


000002 


373« 


375 
























SCNTLG 


015045 


2995 


3108# 
























SCNTLU 


015040 


3012 


3107# 
























SCRLF 


001 177 


38U 


690 


2345 


2363 


2367 


2378 


2383 


2387 


2901 


2936 


3023 


3107 




SDOAGN 


011210 


2231 


2237 


2243» 






















SENDAD 


0U200 


540 


605 


655 


2239« 


2358 


















SENDCT 


01 1160 


514 


2233# 
























SENDMG 


011217 


2235 


2247» 
























SENULL 


011214 


2246s 


























SEOP 


01U24 


737 


760 


783 


806 


829 


852 


22238 














SEOPCT 


011152 


5144* 


22308 


2234 






















SERFLG 


001103 


346!? 


2254 


2283 


2285 


2291* 


2312 


2332* 


2363 












SERMAX 


001 115 


352# 


517* 


2285 


2307* 


2312 


















SERROR 


01 1504 


508 


23261^ 
























SERRPC 


001 116 


3538 


2339« 


2340* 


2341 


2363 


3344 


3345 


3347 


3349 


3350 


3351 


3353 




SERRTB 


001236 


410# 


2374 
























SERTTL 


001 112 


350« 


2338» 


2363 






















SESCAP 


001 1 70 


378# 


516» 


1132» 


1422* 


1435* 


1448* 


1514* 


1539* 


1592* 


1621* 


1644* 


1691* 


1710* 






1718« 


1837* 


1872* 


1901* 


1930* 


1959* 


1988* 


2036* 


2079* 


2132* 


2158* 


2184* 


2306* 






2354 


2356 


2363 






















$FILLC 


001 156 


3718 


2905 


2936 






















SFILLS 


001 155 


370# 


2936 
























SGDADR 


001 120 


354# 


























SGDDAT 


001124 


356» 


2330» 


3347 






















SGET42 


01 1170 


2236» 


























SGTSWR 


014370 


2996« 


3226 
























SHD s 


000000 


11 


























SHIOCT 


014316 


2968* 


2973» 
























SICNT 


001104 


347# 


2298» 


2299 


2301* 


2311 


















SILLUP 


015552 


3238 


3254 


3273# 






















SINTAG 


001135 


361# 


3024 


3113 






















SITEMB 


001114 


35U 


2341* 


2363 


2369 




















SLF 


001200 


382# 


2363 


2936 


3098 


3107 


















SLPADR 


00U06 


348# 


518« 


864* 


873* 


882* 


891® 


900* 


909« 


918* 


927* 


936* 


945* 


954* 




U58» 


1168« 


1178» 


1189* 


1199* 


1217* 


1237* 


1257* 


1277* 


1297* 


1317* 


1337* 


1357* 






1377» 


1400» 


1411* 


1512* 


1537* 


1620* 


1643* 


1717* 


1836* 


1871* 


1900* 


1929* 


1958* 






1987* 


2016* 


2035* 


2078* 


2113* 


2131* 


2157* 


2183* 


2289* 


2304* 


2309 


2311 




SLPERR 


0011 10 


349# 


519» 


2289 


2305* 


2311 


2353 


2572* 


2605* 


2628* 


2660* 


2688* 


2716* 


2736* 


SMAIL = 




536 


546 


2304 


2347 


2889 


















SMNEW 


015063 


2999 


311 IS 
























SMSWR 


015052 


2996 


3109)? 
























SMXCNT 


01 1502 


2302 


2311# 
























SNULL 


001154 


369S 


2907 


2936 






















SNWTSTs 


000001 


720# 


743« 


766S 


789# 


812» 


835# 


860# 


869# 


878j? 


887# 


8969 


905# 


9148 






923« 


9328 


94l# 


950$ 


966# 


979# 


993# 


1006» 


i020« 


10338 


10478 


1060« 


10741 






1087« 


1101S 


1114« 


1128« 


1154« 


U64# 


11748 


1185« 


1195# 


1213# 


12338 


1253» 


12738 






1293# 


1313# 


1333* 


1353# 


1373# 


1396# 


1407# 


t4l8» 


143l# 


1444# 


1462# 


1507# 


1532# 






I557# 


1572S 


1587# 


1615« 


1638» 


16651 


1686# 


1712# 


1741# 


17568 


1771# 


1786» 


180l# 






1816# 


18311 


1866$ 


1895S 


19248 


19538 


1982# 


20118 


2030# 


2073# 


21098 


2ll8« 


2126# 
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SEQ 0097 







2152# 


2178# 


2204S 






SOCNT 


015316 


31 45* 


3174* 


3187# 






$OMOOE 


015320 


3140» 


3144* 


3149 


3152* 


3163* 


SOVER 


011 466 


2266 


2282 


2290 


2300 


2308 # 


SPASS 


001 100 


344# 


668 


1670 


2227* 


2228* 


SPOWEF 


015550 


3269 


3276# 








SPWRAD 


015546 


3271 # 










SPWRDN 


015406 


512 


3238# 


3266 






SPWRMG 


015542 


3269# 










SPWRUP 


015460 


3248 


3254# 








SQUES 


001 176 


380# 


2363 


2483 


2549 


2936 


SRDCHR 


014602 


3055# 


3229 








SRDDECs 




3232 










SRDLIN 


014722 


3083# 


3230 








SRDOCT 


014216 


2946# 


3231 








SRDSE = 


000010 


3076# 










$REGAD 


001 160 


373# 










SREG0 


001162 


375S 


2328* 


3344 


3345 


3347 


SREGl 


001 164 


376# 


2329* 


3349 






SRTNAD 


011212 


2245}! 










SR2A = 


u 


3232 










SSAVREs 


»«»»«» u 


3232 










SSAVR6 


015556 


3247* 


3255 


3256* 


3257* 


3275# 


SSCOPE 


011232 


506 


2263# 








SSETUPs 


000137 


485» 


505 


506 


508 


510 






2264 


2327 


2350 


2358 


2979 


SSTUP = 


177777 


485# 










SSVLAD 


01 1440 


2274 


2303# 








SSWR s 


167400 


1 # 


1 1 


62 


63 


64 






516 


518 


519 


724 


747 






900 


909 


918 


927 


936 






1051 


1064 


1078 


1091 


1105 






1237 


1257 


1277 


1297 


1317 






1466 


1511 


1536 


1561 


1576 






1775 


1790 


1805 


1820 


1835 






2113 


2122 


2130 


2156 


2182 






2257 


2258 


2259 


2265 


2277 






2305 


2308 


231 1 


2318 


2319 






3272 










$S*<PMKs 


000000 


68 


69 


2259 


2260 


2281 


STIMES 


001 166 


377# 


515* 


724* 


747* 


770* 






1118* 


1511* 


1536* 


1561* 


1576* 






1775* 


1790* 


1805* 


1820* 


1835* 






2130* 


2156* 


2182* 


2208* 


2226* 


$TKB 


001 146 


366# 


2977 


2988 


3005 


3059 


$TKS 


001 1 44 


365# 


2977 


2986 


3002 


3026* 


STN = 


0001 22 


I # 


1 1 


720 


724« 


743 






839s 


860 


864» 


867 


869 








900^ 


903 


905 








936# 


939 


941 


945S 


948 






991 


993 


997S 


1004 


1006 






1047 


1051S 


1058 


1060 


1064# 






1 105# 


1112 


1114 


1118» 


1126 






1174 


U78» 


1183 


1185 


1189» 






1237» 


1248 


1253 


1257# 


1268 






1328 


1333 


1337# 


1348 


1353 



3189# 

2246 2296 2312 



3042 3091 3107 



512 


514 


515 


516 


518 


540 


543 


2225 


3113 
















65 


66 


67 


68 


377 


378 


379 


515 


770 


793 


816 


839 


864 


873 


882 


891 


945 


954 


970 


983 


997 


1010 


1024 


1037 


1118 


1132 


1158 


1168 


1178 


1189 


1199 


1217 


1337 


1357 


1377 


1400 


1411 


1422 


1435 


1448 


1591 


1619 


1642 


1669 


1690 


1716 


1745 


1760 


1870 


1899 


1928 


1957 


1986 


2015 


2034 


2077 


2208 


2218 


2226 


2238 


2244 


2246 


2255 


2256 


2279 


2280 


2283 


2284 


2285 


2292 


2293 


2294 


2320 


2321 


2322 


2335 


2342 


2347 


2351 


2363 


793* 


816* 


839* 


983* 


1010* 


1037* 


1064* 


1091* 


1591* 


1619* 


1642* 


1669* 


1690* 


1716* 


1745* 


1760* 


1870* 


1899* 


1928* 


1957* 


1986* 


2015* 


2034* 


2077* 


2292* 


2299 


2302* 


2311 










3065 
















3057 


3063 














747# 


766 


770# 


789 


793# 


812 


816# 


835 


873# 


876 


878 


882# 


885 


887 


891» 


894 


912 


914 


918!» 


921 


923 


927lf 


930 


932 


950 


954# 


957 


966 


970# 


977 


979 


983# 


1010# 


1018 


1020 


1024# 


1031 


1033 


1037» 


1045 


1072 


1074 


1078# 


1085 


1087 


1091# 


1099 


1101 


1128 


1132» 


1154 


1158# 


1162 


1164 


1168» 


1172 


1193 


1195 


11998 


1203 


1213 


1217» 


1228 


1233 


1273 


1277# 


1288 


1293 


i297# 


1308 


1313 


1317# 


1357# 


1368 


1373 


1377S 


1388 


1396 


1400# 


1405 



TAl 1 BASIC LOGIC TEST 


(PART 1) 


MAINDEC - 


11-DETAA 


»C 




MACYll 


27(732) 


U-JUN" 


76 15:15 


PAGE 


85 




SEQ 


DZTAAC.NEW CROSS 


REFERENCE 


TABLE 


USER SYMBOLS 
























1407 


1411# 


1416 


1418 


1422« 


1429 


1431 


1435# 


1442 


1444 


1448» 


1455 


1462 






1466# 


1500 


1507 


1511# 


1514 


1529 


1532 


15368 


1539 


1554 


1557 


1561# 


1568 






1572 


1576# 


1583 


1587 


159l» 


1615 


1619S 


1621 


1636 


1638 


1642# 


1644 


1665 






1669# 


1671 


1686 


1690# 


1712 


1716* 


1718 


1739 


1741 


1745# 


1752 


1756 


17603 






1767 


1771 


17758 


1782 


1786 


1790# 


1797 


1801 


1805» 


1812 


1816 


1820# 


1827 






1831 


18358 


1837 


1864 


1866 


1870# 


1872 


1893 


1895 


1899» 


1901 


1922 


1924 






1928# 


1930 


1951 


1953 


1957# 


1959 


1980 


1982 


1986# 


1988 


2009 


2011 


2015** 






2030 


2034# 


2036 


2071 


2073 


2077# 


2079 


2109 


2113# 


2116 


2118 


2122^ 


2124 






2126 


2130# 


2152 


2156S 


2178 


2182# 


2204 


2208# 












STPB 


001152 


368« 


2925* 


2936 






















STPFLG 


001157 


372# 


2883 


2936 






















STPS 


001150 


367f» 


2923 


2936 






















STRAP 


015322 


510 


3198# 
























$TRAP2 


015344 


3209# 


3220 
























STRP = 


000014 


3213# 


3222# 


3223# 


3224S 


3225# 


3226 


32271 


3228 


3229# 


3230# 


3231« 


3232# 


3233# 






3234# 


























STRPAD 


015356 


3203 


3220# 
























$TSTNM 


001102 


345« 


677* 


2225* 


2254 


2281 


2303* 


2308 


2312 


2334 


2363 








STTYIN 


015030 


3084 


3085 


3102 


3106# 




















STYPBN= 




3225 


























STYPDSs 


u 


3225 


























STYPE 


013776 


2883# 


3213 


3221 






















STYPEC 


014146 


2904 


2911 


2918 


2923# 


2924 


3028 
















STYPEX 


014214 


2929 


2931 


2934# 






















STYPOC 


015120 


3143# 


3222 
























STYPON 


015134 


3142 


3145» 


3224 






















STYPOS 


015074 


3138S 


3223 
























SXTSTR 


011244 


2268# 


























$SGET4s 


000000 


2238» 


























$0FILL 


015317 


3139* 


3143* 


3153 


3188# 




















S40CATS 




2265 


2344 


























016442 


223# 


2278 


289S 


299# 


32l# 


342# 


383 


503 


518 


519 


554« 


676« 


687# 






1659 


2246 


2249 


2311 


2312 


2363 


2398# 


2936 


2977 


31061 


3107 


3113 


3250 






3274 


3343# 

























ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

*TAAC,TAAC/SOL/CRF:SYM=DZTAAC.NEW 
RUN»TIME: 58 48 3 SECONDS 
RUN-TIME RATIO: 283/111=2,5 
CORE USED: 26K (51 PAGES) 



